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EXECUTIVE  SUMMARY 


A .  OBJECTIVE 

This  report  describes  the  software  developed  by  Applied  Research  Associates,  Inc.  ior  the 
host  computer  portion  of  the  airbase  facility  postattack  damage  assessment  (POST-DAM  )  sysietn. 
The  objective  of  this  research  was  to  develop  an  integrated  prototype  software  system  to  manage 
repair  resources  and  schedule  repairs  based  on  resource  availability  and  facility  priorit>.  This 
software  system,  entitled  Resource  Manger/Repair  Scheduler  (RMRS).  was  design  to  he  user 
friendly  and  require  minimal  user  interaction. 

B.  BACKGROUND 

In  a  postattack  environment,  field  information  on  mission-critical  facilit)  damage  is 
collected  and  analyzed  to  determine  structural  integrity  and  usability.  From  thi.s  anal>  sis.  a  repair 
schedule  is  developed.  This  process  is  time-consuming  when  unaided  by  a  computerized  system 
Consequently,  the  POST-DAM  system  was  developed  to  determine  repair  strategies  using  an 
expen  system;  keep  track  of  materials  and  equipment  using  a  relational  database  managemeni 
system;  and  schedule  repairs  based  on  manpower  and  equipment  availability  using  a  project 
management  system.  This  report  addresses  the  combination  of  the  relational  database  management 
system  and  the  project  management  system  of  the  original  POST-DAM  architecture  into  one 
integrated  RMRS  system.  The  original  POST-DAM  work  is  documented  in  a  nine-volume  set 
Volume  I  describes  software  and  hardware  used  with  the  prototype  POST-DAM  system,  and 
recommends  software  and  hardware  for  full-scale  development.  Volumes  11  through  VII 1  are 
software  user's  manuals  that  describe  how  to  install  and  use  the  prototype  software  with  tiie 
POST-DAM  system.  Volume  IX  is  a  field  manual  that  contains  diagrams  of  structures  that  are 
used  with  the  POST-DAM  system  to  locate  damaged  elements. 

C.  CONCLUSIONS 

The  RMRS  prototype  software  demonstrated  an  architecture  that  was  able  to  quickl)  and 
efficiently  manage  Airba.se  resources  and  schedule  expedient  repairs  for  mission  critical  facilities 
For  repairs  with  no  resource  conflicts,  the  RMRS  system  could  operate  with  minimal  user 
intervention.  When  conflicts  were  present,  resolution  was  possible  by  allowing  the  user  direei 
access  to  the  RMRS  data  files  and  complete  control  of  the  resource  allocation  and  scheduling 
processes. 


D.  RECOMMENDATIONS 

For  full-scale  development  of  the  RMRS  software,  the  following  issues  shouid  he 
addressed: 

1 .  Include  a  communications  module  to  allow  RMRS  to  receive  PDFS  data  file'-  in  the 
background  while  continuing  to  work  uninterrupted. 

2.  Incorporate  Expert  System  capabilities  to  provide  RMRS  the  capability  to  suggest 
resource  conflict  solutions  and  changes  in  repair  strategies  based  on  current 
resource  supplied  and  equipment  usage. 

3 .  Develop  an  optimized  scheduler  to  generate  schedules  based  on  facility  priorits  and 
time  and  resource  optimization. 
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SECTION  I 


INTRODUCTION 


A.  OBJECTIVE 

Our  objective  is  to  develop  a  personal  computer-based  software  system  to  aid  base 
engineers  in  postattack  facility  damage  assessment  (POST-DAM)  of  mission-critical  facilities.  This 
system  is  to  integrate  a  database  manager  to  track  airbase  material  and  equipment  resources  and  a 
facility  priority-based  repair  scheduler.  The  result  of  this  effort  is  the  Resource  Manager/Repair 
Scheduler  (RMRS)  host  system,  which  works  in  conjunction  with  the  previously  developed 
POST 'DAM  expert  System  (PDES). 

B.  BACKGROUND  AND  SCOPE 

The  RMRS  host  module  was  developed  in  response  to  limitations  identified  during  testing 
of  the  early  POST-DAM  System  prototype.  In  its  original  form,  the  host  system  portion  of  POST' 
DAM  consisted  of  four  separate  commercial  off-the-shelf  (COTS)  software  packages  and  required 
more  user  interaction  and  training  than  was  desired.  Thus,  a  custom  application  'A  as  developed 
that  combined  the  resource  supply  management  function  of  the  relational  database  manager  and  ilie 
repair  scheduling  function  of  the  project  scheduler.  The  RMRS  module  was  designed  for  optimal 
host  system  automation,  requiring  user  intervention  only  under  special  conditions,  while  allow  ing 
the  host  system  operator  complete  control  over  resource  usage  and  repair  scheduling.  F-igure  I 
shows  the  difference  in  the  POST-DAM  2U’chitecture  with  RMRS. 
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Figure  1.  Early  and  New  POST-DAM  Architecture.s. 
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SECTION  II 


SYSTEM  TECHNICAL  DESCRIPTION 


A.  GENERAL 

RMRS  is  a  tool  to  aid  Damage  Control  Center  (DCC)  personnel  in  efficiently  allocating 
resources  and  schedule  expedient  repairs  to  mission -critical  Air  Force  base  facilities  following  an 
enemy  attack.  The  RMRS  module  operates  as  part  of  the  Postattack  Damage  Assessment  System 
(POST-DAM). 

The  RMRS  module  was  developed  using  the  C  Language  and,  when  possible,  third  parts 
libraries  for  such  functions  as  the  low-level  database  file  management,  user  interface,  etc.  It  is 
menu  driven  with  context  sensitive  help  and  mouse  support.  A  major  design  criterion  was  that  the 
system  operate  with  minimal  user  interaction.  To  this  end,  the  RMRS  module  can  genciaie  repair 
schedules  and  perform  the  following  functions  with  as  few  as  three  commands; 


Command:  PROCESS  |  AUTO  MODE  i 

Retrieves  POST-DAM  EXPERT  SYSTEM  (PDES)  from  host  hard  disk  storage. 
Creates  entry  in  RMRS  database  .or  each  repair. 

Compares  equipment  requirements  for  repair  with  available  resources. 

If  the  equipment  resources  are  available,  RMRS  will  continue;  otherwiNC  RMRS 
will  let  the  user  know  that  this  repair  is  not  possible. 

Compares  material  requirements  for  repair  with  available  resources. 

If  the  resources  are  available,  RMRS  will  allocate  the  resources  to  the  repair; 
otherwise  RMRS  will  enter  an  interactive  mode  to  allow  the  user  to  resol \  c'  the 
resource  conflict. 


Command:  SCHEDULE  |  FULL  SCHEDULE 

Makes  list  of  all  repairs  to  be  scheduled  in  facility  priority  order. 

For  each  repair,  finds  the  earliest  time  slot  available  for  all  equipment  resources 
required  and  allocates  this  time  slot  to  the  repair. 


Command:  GEN  REPORT  ]  REPAIR  SCHEDULE 

Based  on  results  of  the  schedule  process,  outputs  schedule  information  m  desired 
format. 


'This  terminology  PROCESS  I  AUTO  MODE  refers  to  the  Process  menu  and  the  .Auto  Moilc  etintee 
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B.  DATABASE  SCHEMA 


The  RMRS  system  is  organized  around  seven  data  files,  or  databases,  that  maintain  the 
required  information  to  track  and  schedule  materials,  equipment,  and  repairs. 

The  seven  databa.ses  are; 

1 .  FACPRT.DBF  -  Airbase  facility  priority  listing. 

2.  EQPSUP.DBF  -  Airbase  equipment  supply  listing. 

3 .  MATSUP.DBF  -  Airbase  materials  supply  listing. 

4 .  REPAIR.DBF  -  status  records  for  each  individual  repair. 

5 .  EQPREQ.DBF  -  records  for  each  equipment  requirement  associated  with  repairs 

6.  MATREQ.DBF  -  records  for  each  material  requirement  associated  with  repairs 

7 .  REPINFO.DBF  -  misc.  info  records  for  each  individual  tcpair. 

The  first  three  databases  are  populated  from  existing  Airbase- specific  data  in  the  system 
initialization  phase.  The  remaining  four  databases  are  populated  with  the  data  that  is  re.eived  from 
the  PDES.  Each  processed  repair  will  have  at  least  one  related  record  in  the  REPAIR.DBF-. 
EQPREQ.DBF,  MATREQ.DBF,  and  REPINFO.DBF  databases  (excluding  the  special  case  w  heie 
a  repair  does  not  require  any  materials,  in  which  case,  no  material  record  would  e,\ist  m 
MATREQ.DBF  for  that  repair).  The  following  sections  describe  the  format  of  and  the  informatiisn 
contained  in  each  of  the  RMR.S  databases. 


1.  FACTPRT.DBF 

The  database  file  FACPRT.DBF  correlates  the  Airbase  facility  designations  to  their 
corresponding  mission-critical  priority  rating. 


HELD# 

FIELD  NAME 

HELD  DESC 

I 

_ 2 . 

FACNUM 

PRIORITY 

Aibase  facility  number  d  esignation 
Airbase-assigned  mission  critical  lacility  prioriu 

2.  EQPSUP.DBF 

EQPSUP.DBF  represents  the  current  Airbase  equipment  supply.  Onh  large 
equipment,  such  as  bulldozers,  shotcrete  machines,  etc.,  is  included  in  this  database.  Smaller 
equipment,  such  as  hammers,  screwdrivers,  etc.,  is  considered  to  be  standard  equipment  carried 
by  all  damage  repair  teams.  Additionally,  damage  repair  teams,  containing  appro.simately  fi\e 
members,  are  included  in  this  database.  The  record  format  consists  of  a  unique  equipmeui 
idenrification  number  and  a  textual  description  of  the  equipment  piece. 


HELD# 

HELD  NAME 

FIELD  DESC 

1 

EQPID 

RMRS  system -assigned  equipment  id  numtx' 

2 

EQPDESC 

Textual  equipment  description 

3.  MATSUP.DBF 

MATSUP.DBF  represents  the  current  unallocated  Airbase  material  supply.  The 
record  format  consists  of  a  unique  material  identification  number,  a  textual  description  ol  the 
material,  the  total  quantity  of  the  material  available,  and  a  textual  “units”  description  (e.g..  ea,  gal  i 


HELD# 

HELD  NAME 

HELD  DESC 

1 

1  MATID 

RMRS  system-assigned  material  id  number 

2 

1  MATDESC 

Textual  material  description 

3 

i  QTY 

1 

Quantity  of  unallocated  material  units  resident  m 
Airbase  supply 

4 

i  UNIT 

Textual  “units"  descnpiion  (c.g.,  ea.  gal  i 

4.  REPAIR. DBF 

The  REPAIR. DBF  database  consists  of  records  (one  per  repair)  containing 
identification  and  status  data  for  each  individual  re’'''ir  processed  by  the  RMRS  system  rtie 
record  format  consists  of  five  fields,  as  follows; 


RELD# 

HELD  NAME 

FIELD  DESC 

1 

REPID 

RMRS  system-assigned  repair  id  number 

2 

FACNUM 

Aihase  facility  number  designation 

3 

PRIORITY 

Airbase-assigned  mission  critical  facility  priority 

4 

SCHDPRTY 

RMRS  system  scheduling  priority  (iniiialb  ci)ii 
to  (3)  selectable) 

5 

STATUS 

RMRS  system  repair  .status 

The  “repair  id”  (Field  1)  is  assigned  sequentially  by  the  RMRS  system  at  repair 
load-time  by  the  RMRS  system  (initial  phase  of  PROCESS  cycle).  Although  the  repair  id'  is 
mainly  used  internally  by  RMRS,  it  is  provided  to  the  user  along  with  other  repair  information 
when  appropriate.  Most  importantly,  this  “repair  id”  provides  the  required  link  between  the  repair 
and  its  associated  resource  requirements  and  allocations. 
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The  “facility  number  designation”  (Field  2)  is  populated  at  repair  ioad-timc  The 
facility  number  is  extracted  from  the  PDFS  output  file  name  (e.g.,  B4058.EQP  ->  405H ). 

The  “mission  critical  facility  priority”  (Field  3)  is  the  priority  corresponding  to  the 
Airbase  priority  listing  for  mission  critical  facilities.  This  data  is  retrieved  from  the  facilit>  priorii\ 
database,  FACPRT.DBF. 

The  “scheduling  priority”  (Field  4)  allows  user  control  over  repair  ordering  in  thc 
prioritized  RMRS  scheduler  queue.  By  default,  the  “mission  critical  facility”  and  "scheduling 
priority”  are  the  same,  the  scheduler  always  looks  at  the  “scheduling  priority”  when  ordering  the 
queue.  Therefore,  the  user  can  manipulate  the  scheduling  order  by  using  the  SET  PRIORITY  menu 
function  to  change  the  value  in  Field  4,  while  maintaining  the  original  priority  in  Field  .T 

The  “RMRS  system  repair  status”  (Field  5)  is  denoted  by  a  single  character 
designation  that  indicates  the  repair  status  as  related  to  the  RMRS  processing  cyck-  The 
possibilities  are  as  follows; 

N  -  (N)ew  repair 
P  -  (P)ossible  repair 
Q  -  (Q)ueued  repair 
C  -  (C)ompleted  repair 
O  -  (O)verriden  repair 
S  -  (S)uspended  repair 
X  *  (X)canceled  repair 

5.  EQPREQ.DBF 

The  EQPREQ.DBi*  database  consists  of  records  (one  or  more  per  repair)  containing 
equipment  requirement  and  time-slot  allocation  information  associated  with  a  repair.  ConsequentK . 
the  actual  schedule  information  is  embedded  in  this  database.  Each  individual  cquipmcm 
requirement  for  a  repair  is  assigned  a  record  that  is  divided  into  six  fields; 


HELD# 

FIELD  NAME 

FIELD  DESC 

1 

EQPID 

Equipment  id  number 

2 

EQPDESC 

Textual  equipment  description 

3 

START 

Scheduled  repair  start  time  (in  seconds 
from  Greenwich  Mean  Time 

4 

DURATION 

Estimated  repair  duration  in  seconds 

5 

REPID 

Associated  RMRS  repair  id  number 

6 

STATUS 

RMRS  system  allocation/repair  status 

70; 
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The  “e*.,  pment  id”  (Field  1)  corresponds  to  the  RMRS  sysieni-assiencci  nunibci 
used  in  the  Airbase  equipment  supply  database,  EQPSUP.DBF. 

The  “equipment  description”  (Field  2)  is  populated  at  repair  load-time  with  tiie 
corresponding  entry  from  the  *.EQP  PDES  output  facility  file.  The  RMRS  system  currentiy  uses 
this  field  as  the  search  key  when  checking  for  equipment  existence  in  the  Airbase  equipment  suppl\ 
database,  EQPSUP.DBF. 

The  “scheduled  repair  start  time”  (Field  3)  is  set  when  a  repair  is  scheduled.  Its 
value  is  represented  in  seconds,  referenced  from  Greenwich  Mean  Time  (GMT)  (X):(K):(M)  1/1/70. 
Every  equipment  requirement  record  for  a  given  scheduled  repair  will  have  the  same  start  time 
value. 


The  “estimated  repair  duration”  (Field  4)  is  populated  at  repair  load-time  w  ith  the 
corresponding  entry  from  the  *.EQP  PDES  output  facility  file.  Its  value  is  represented  in  secmid^ 


The  “repair  id”  (Field  5)  provides  the  link  between  the  particular  equipment 
requirement  and  its  corresponding  repair  record  in  REPAIR.DBF. 

The  “RMRS  system  scheduling/repair  status”  (Field  6)  is  denoted  by  a  single 
character  designation  that  indicates  the  equipment  requirement  status  as  related  to  the  RMR.S 
equipment  scheduling/repair  processing  scheme.  The  possibilities  are  as  follows; 

N  -  associated  with  (N)ew  repair. 

Q  -  (Q)ueued  (associated  with  UN1X)CKED  ((Queued  repair). 

L  -  (L)ocked  (associated  with  LOCKED  (Q)ueued  repair^ 

C  -  associated  with  (C)ompleted  repair. 

O  -  associated  with  (O)verriden  repair. 

S  -  associated  with  (S)uspended  repair. 

X  -  associated  with  (X)canceled  repair. 


6.  MATREQ.DBF 


MATREQ.DBF  consists  of  records  (zero  or  more  per  repair)  containing  material 
requirement  and  allocation  .status  information  associated  with  a  repair.  Each  individual  material 
requirement  for  a  repair  i.s  a.ssigned  a  record  that  is  divided  into  six  fields: 
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FIELD# 


FIELD  NAME 


HELD  DESC 


1 

MATID 

Material  id  number 

2 

MATDESC 

Textual  material  description 

3 

QTY 

Quantity  required 

4 

UNIT 

Textual  “units”  description 

5 

REPID 

Associated  RMRS  repair  id  number 

6 

STATUS 

RMRS  system  allocation/repair  siatu.s 

The  “material  id”  (Field  I)  corresponds  to  the  RMRS  system-assigned  number  used 
in  the  Airbase  material  supply  database,  EQPSUP.DBF. 

The  “material  description”  (Field  2)  is  populated  at  repair  load-time  with  the 
corresponding  entry  from  the  *.MAT  PDFS  output  facility  file.  The  RMRS  system  currently  uses 
this  field  as  the  search  key  when  checking  for  material  existence  in  the  Airbase  equipment  siipp!\ 
database,  MATSUP.DBF. 

The  “quantity  required  value”  (Field  3)  is  populated  at  repair  load-time  with  the 
corresponding  entry  from  the  *.MAT  PDFS  output  facility  file. 

The  ‘“units’  description”  (Field  4)  is  populated  at  repair  load-time  with  the 
corresponding  entry  from  the  *.MAT  PDFS  output  facility  file.  This  value  is  not  current!)  used  h\ 
the  RMRS  system  except  as  information  output. 

The  “repair  id”  (Field  5)  provides  the  link  between  the  particular  material 
requirement  and  its  corresponding  repair  record  in  REPAIR.DBF. 

The  “RMRS  system  allocation/repair  status”  (Field  6)  is  denoted  by  a  single 
character  designation  that  indicates  the  material  requirement  status  as  related  to  the  RMRS  material 
allocation/repair  processing  scheme.  The  possibilities  are  as  follows: 

A  -  (A)llocated  (associated  with  (P)ossible  or  UNLOCKED  (Q)ueued  reptiiri 

L  -  (L)ocked  (associated  with  LOCKED  (Q)ueued. 

U  -  (U  jsed  (associated  with  (C)ompleted  repair). 

N  -  (N)ew  (associated  with  (N)ew  repair). 

O  -  associated  with  (O)veiTiden  repair. 

S  -  associated  with  (S)uspended  repair. 

X  -  associated  with  (X)canceled  repair. 


7. 


REPINFO.DBF 


REPINFO.DBF  consists  of  records  (one  per  repair)  containing  detailed  information 
associated  with  a  repair.  The  information  is  assembled  from  the  data  contained  in  the  *.OL'T 
PDES  output  file.  Each  individual  repair  is  assigned  a  repair  information  record  that  consists  of  sis 
fields: 


FIELD# 

FIELD  NAME 

HELD  DESC 

1 

REPID 

Associated  RMRS  repair  id  number 

2 

FACFUN 

Facility  function 

3 

FACDESC 

Facility  description 

4 

ELENUM 

Element  number 

5 

ELEDESC 

Element  description 

6 

DAMMODE 

Damage  mode 

7 

DAMW 

Damage  width 

8 

DAML 

Damage  length 

9 

DAMH 

Damage  height 

10 

REPSTGY 

Repair  strategy 

11 

REMARKS 

Remarks 

The  “repair  id”  (Field  1)  provides  the  link  between  the  particular  repair  information 
record  and  its  corresponding  repair  record  in  REPAIR.DBF. 

Fields  #2-#l  1  are  self-explanatory. 

C .  DATA  FLOW 

1 .  General 

As  a  repair  moves  through  the  RMRS  system  it  progresses  from  one  stage,  or 
Status,  to  the  next.  Although  conceptually  a  repair  “moves”  through  the  system,  repair  data  is  not 
actually  copied  from  one  place  to  another.  Once  repair  data  is  initially  recorded  into  the  appropriate 
databases,  the  repairs  status  changes  via  the  value  of  its  status  field  as  shown  in  Figure  2 


2.  New  Status 

When  the  PDES  output  facility  files  (*.EQP,  *.MAT,  *.OUT)  are  loaded  into  the 
four  repair  databases,  file  format  validation  is  performed  and  the  new  repair  data  records  are 
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Completed  Repair 

ivcpiui  acucuutcu 

All  Resources  Available, 

Mats  Allocated  to  Repair 

New  Arrival 

Repair  Status  (b 

i) . (P 

.) - 

}) . (C) 

Figure  2.  Repair  Status  Values. 


marked  with  the  (N)ew  status.  Typically  the  next  status  for  a  repair  after  {N)ew  is  (P)ossiblc. 
however  there  are  other  possibilities  based  on  existing  conditions  and  user  decisions.  IJsteci  belo\' 
are  the  status  transitions  that  can  occur  from  (N)ew: 

(N)ew  ->  (X)canceled  :  NONEXISTENT  EQUIPMENT.  Repair  reijuired 
on  a  non-existent  piece  of  equipment  (for  supply  purposes,  e.g.,  it  was  destroyed  in  the  attack  i. 
the  repair  would  be  “automatically”  (X)canceled  by  the  RMRS  system  (RMRS  assumes  that  otil\ 
material  conflicts  can  be  resolved  through  substitution,  equipment  conflicts  are  not  resoivtihie. 
however  the  user  may  perform  manual  resolutions). 

(N)ew  ->  (S)uspended  :  ONLY  MATERIAL  CONFLICTS.  Repair  has 
one  or  more  material  requirement  conflicts.  A  material  conflict  arises  when  a  material  proposed  b> 
the  PDES  module  is  either  non-existent  (no  corresponding  entry  in  Airbase  material  supply  listing) 
or  the  Airbase  material  supply  lacks  sufficient  quantities  to  satisfy  the  requirement.  The  RMRS 
system  incorporates  provisions  to  resolve  material  conflicts  through  substitution,  according  to  the 
user's  discretion.  However,  the  user  can  defer  this  resolution  opportunity  to  a  later  time  b\ 
choosing  not  to  attempt  a  conflict  compromise.  In  this  case,  the  RMRS  system  uould  (Suispem! 
the  repair. 


(N)ew  ->  (P)ossible  :  NO  RESOURCE  CONFLICTS.  This  status 
progression  occurs  when  no  resource  conflicts  arise. 
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3. 


Possible  Status 


A  (P)ossible  status  indicates  that  the  repair  is  ready  for  scheduling,  the  required 
equipment  resources  are  available,  and  the  required  material  resources  have  been  allocated 

(P)ossible  ->  {Q)ueued  :  NORMAL  SCHEDULINC.  This  status 

progression  occurs  upon  normal  scheduling  of  the  repair. 

(P)ossible  ->  (S)uspended  :  MANUAL  SUSPENSION.  This  status 
progression  occurs  when,  before  being  scheduled,  a  repair  with  no  resource  conflicts  is  selected 
for  suspension  by  the  user. 

(P)ossible  ->  (O)verrlden  :  PRIORITY  OVERRIDE  RESOLUTION. 

This  status  progression  occurs  when,  before  this  particular  repair  was  scheduled,  a  different, 
higher-priority  repair  needs  materials  that  are  not  available  in  the  supply,  but  can  be  taken  lioni  this 
(P)ossible  repair.  In  this  case,  the  RMRS  system  asks  the  user  for  override  pemiission  which,  it 
granted,  will  cause  the  required  materials  to  be  released  to  the  high-priority  repair,  w  hile  the  other 
materials  from  the  overridden  repair  return  to  the  material  supply. 

(P) ossible  ->  (X)cancel  ;  MANUAL  CANCELATION.  This  status 

progression  occurs  when,  before  being  scheduled,  a  repair  with  no  resource  contlicts  is  cancelled 
by  the  user. 

4 .  Queued  Status 

A  queued  status  indicates  that  the  repair  has  been  scheduled  and  that  the  reiiuired 
equipment  resources  have  been  reserved  for  the  appropriate  time. 

(Q) ueued  ->  (C)oinplete  :  NORMAL  COMPLETION.  This  status 

progression  occurs  upon  normal  completion  of  the  repair. 

(Q)ueued  ->  (S)uspended  :  MANUAL  SUSPENSION.  This  status 

progression  occurs  when,  before  being  started,  a  scheduled  repair  is  selected  for  suspension  bv  the 
user. 


{Q)ueued  ->  (O)verriden  :  PRIORITY  OVERRIDE  RESOLUTION 
APPRVD.  This  status  progression  occurs  when,  before  this  particular  repair  begins,  a  different, 
higher-priority  repair  needs  materials  that  are  not  available  in  the  supply,  but  can  be  ttiken  from  this 
(Q)ueued  repair.  In  this  ca.se,  the  RMRS  system  a.sks  the  u.ser  for  override  permission  which,  it 
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granted,  will  cause  the  required  materials  to  be  released  to  the  high  priority  repair  witile  the  utliei 
materials  from  the  overridden  repair  return  to  the  material  supply. 

(Q)ueued  ->  (Xlcancd  :  MANUAL  CANCELATION.  This  siaius 
progression  occurs  when,  before  being  started,  a  scheduled  repair  is  cancelled  by  the  user 

5 .  Complete  Status 

Once  a  repair  has  acquired  the  (C)omplete  status  it  remains  in  the  database  files  until 
explicitly  deleted  or  the  database  files  are  reset. 

D.  RESOURCE  ALLOCATION 

Resource  allocation  by  the  RMRS  system  is  accomplished  automatically  through  soUwaic 
manipulation  of  the  Airbase  supply  databases  and  the  repair  resource  requirement  databases.  The 
two  resource  types,  equipment  and  material,  are  allocated  in  separate  phases  of  the  RMRS 
processing  cycle  due  to  the  the  different  concerns  for  each  type  of  resource.  For  material  resources 
we  are  mainly  concerned  with  quantity  available;  while  for  equipment  resources  we  are  concerned 
with  the  equipment  allocation  over  time.  The  Process  menu  commands  accomplish  the  material 
resource  allocation,  while  the  Schedule  menu  commands  handle  the  allocation  of  ecjuipment 
resources. 

Material  resource  allocation  is  automatic  through  the  normal  execution  of  the  RMRS 
Process  commands:  ( 1 )  Auto  mode;  (2)  Single  facility;  and  (3)  Compromi.se  retry . 

The  Process  /  Auto  Mode  and  Process  /  Single  Facility  commands  involve  the  processing  of 
newly  arrived  PDES  facility  repair  file  sets.  This  processing  includes  database  population, 
resource  availability  analysis,  and  resource  requirement  compromise,  if  needed.  The  Pmccss 
Compromise  Retry  command  involves  availability  analysis  and  compromise.  Regardless  of  the 
command  used,  the  overall  objective  here  is  allocate  material  resources  to  a  repair  if  no  conflictv 
occur  or  if  those  occurring  can  be  resolved. 

The  Process  menu  commands  work  on  an  “all  or  nothing”  resource  availability  analysis 
scheme.  This  scheme  verifies  that  all  the  resource  requirements  can  be  satisfied  before  resource 
allocation  actually  occurs  since,  for  most  repair  strategies,  it  is  unlikely  that  the  repair  could  lx- 
satisfactorily  completed  with  only  a  fraction  of  the  required  resources.  Thus,  the  Process  menu 
commands  verify  that  the  required  equipment  exists  and  then  that  the  appropriate  material  quantinev 
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are  available.  Then,  upon  no  conflicts  or  upon  resolution  thereof,  the  materials  are  alk)<.  atecl  to  that 
repair.  The  equipment  is  allocated  at  schedule  time. 

The  RMRS  system  requirement  of  prioritized  resource  allocation  is  provided  for  in  two 
ways.  First,  all  newly  arrived  PDFS  facility  repair  file  sets  are  processed  through  resource 
availability  analysis  in  priority  order.  If  all  resources  are  readily  available  from  the  Airbase  supph 
databases,  then  the  material  resources  are  allocated  at  that  time.  Second,  when  a  material  conflict 
occurs  because  of  inadequate  supply,  the  RMRS  system  turns  to  the  material  requirements  database 
(MATREQ.DBF)  to  attempt  to  locate  a  priority-override  resolution.  In  other  words,  the  search 
tries  to  locate  a  material  requirement  that  has  sufficient  quantity  and  is  associated  with  a  repair  that 
has  a  lower  priority  than  that  repair  looking  for  resources.  This  search  only  includes  the  matching 
material  requirements  for  repairs  that  have  not  been  started  yet.  Specifically,  these  qualifying 
material  requirements  will  have  a  STATUS  designation  of  (A)llocated.  In  contrast,  unallocateil 
material  requirements  will  be  marked  (S)uspended  or  (X)canceled,  and  those  associated  with  a 
completed  repair  are  marked  (U)sed.  When  used  in  conjunction,  these  two  methods  assure  that  the 
material  resources  are  efficiently  distributed  in  a  prioritized  fashion,  as  required. 

On  the  data  manipulation  level,  material  allocation  involves  both  the  Airbase  material  supply 
database  (MATSUP.DBF)  and  the  material  requirements  database  (MATREQ.DBF).  In  a  no- 
conflict  scenario,  the  material  quanuties  specified  in  the  repair's  material  requirement  records  are 
simply  deducted  from  the  QTY  field  in  the  AB  material  supply  database,  and  the  corresponding 
material  requirement  records  are  given  a  STATUS  of  (A)llocated.  Of  course,  a  side  effect  of  this 
transaction  is  that  the  associated  repair  identification  record  (in  REPAIR. DBF)  has  its  STATUS 
field  changed  to  (P)ossible.  Whereas,  with  the  override  resolution  scenario,  the  overridden  reptiir 
is  dropped  from  its  scheduled  status  of  (Q)ueued.  This  must  be  the  case,  because  once  the 
required  override  materials  have  been  taken  from  the  repair,  it  no  longer  has  access  to  till  the 
material  resources  it  needs.  Upon  demotion  of  the  subordinate  repair,  all  of  its  allocated  material 
resources  are  first  returned  to  the  AB  material  supply  by  adding  the  requirement  quantities  to  the 
QTY  fields  in  the  corresponding  supply  entries.  The  overridden  repair  and  its  associated  resource 
requirement  records  are  given  a  STATUS  of  (O)verridden.  Then  the  materials  are  alkK  ated  to  tlie 
high-priority  repair  in  the  normal  way. 

E.  REPAIR  SCHEDULING 

Once  resource  allocation  has  been  successfully  completed  through  the  use  of  one  of  the 
Process  menu  commands,  the  REPAIR.DBF  database  file  should  contain  one  or  more  records  with 
the  status  field  set  to  (P)ossible.  A  (P)ossible  status  indicates  that  the  repair  has  tx-en  alhxated 
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material  resources  and  is  ready  to  be  scheduled.  Remember  that  the  resource  allocation  c\clc 
verified  that  the  equipment  required  for  each  repair  existed,  therefore  the  only  concern  at  this  point 
is  to  find  the  earliest  common  time  that  all  pieces  of  equipment  required  for  the  repair  will  be 
available.  When  the  time  slot  is  found,  the  status  field  in  REPAIR.DBF  is  set  to  “Q  ”  for  “queued, 
which  means  that  the  repair  has  been  scheduled  and  equipment  allocated.  Also  the  status,  start, 
and  duration  fields  in  the  EQPREQ.DBF  file  are  set  to  the  appropriate  values  to  indicate  that  tlie 
time  slot  for  that  piece  of  equipment  has  been  allocated. 

As  an  example  of  the  way  RMRS  schedules  repairs,  consider  the  case  where  we  schedule 
one  repair  with  a  duration  of  one  hour  that  requires  the  following  pieces  of  equipment;  one 
Shotcrete  Machine,  two  Ramsets,  and  one  Repair  Team.  Assume  that  other  repairs  have  already 
been  scheduled  and  that  the  current  time  is  1200  hours  today.  To  begin  the  scheduling  process 
RMRS  will  first  determine  the  equipment  requirements  for  the  repair  (which  we  already  know  itoin 
the  problem  statement)  from  the  EQPREQ.DBF  file.  Next,  the  earliest  start  time  for  the  repair  is 
determined  by  adding  an  appropriate  lag  value  to  the  current  time,  for  example  ihiri)  minutes; 
therefore,  we  will  not  attempt  to  schedule  this  repair  before  1230  hours  today.  Now  w  e  choose  the 
first  of  the  equipment  pieces  (the  selection  order  is  not  important)  and  try  to  locate  a  one-hour  time 
slot  (one-hour  duration  repair)  when  this  piece  of  equipment  is  available  not  before  12.^0  hours 
today  (earliest  start  time).  The  beginning  of  the  time  slot  we  find  is  called  the  “  equipmem  start 
time.”  We  repeat  the  process  for  each  piece  of  equipment.  Depending  on  the  current  availabilit> 
for  each  piece  of  equipment,  the  equipment  start  times  may  or  may  not  be  the  stime.  If  ilie  start 
times  are  the  same  we  have  scheduled  the  repair,  however  if  they  are  different  we  must  tr\  agaiti. 
For  the  retry  we  set  the  earliest  stan  time  for  the  repair  to  the  latest  of  all  the  equipment  start  titnes. 
and  repeat  the  process.  Eventually  we  will  find  a  common  time  during  which  all  of  the  equipment 
pieces  required  for  the  repair  will  be  available.  The  above  approach  ensures  that  the  common  time 
is  the  earliest  possible. 
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SECTION  III 


COMMAND  REFERENCE 

The  Resource  Manager/Repair  Scheduler  (RMRS)  operates  in  a  pull-down  menu 
environment.  All  menu  choices  can  be  selected  by  mouse  or  via  the  keyboard.  The  system  menu 
bar  consists  of  the  following  six  pull-down  menus: 

(1)  SYSTEM 

(2)  INTT/SETUP 

(3)  PROCESS 

(4)  SCHEDULE 

(5)  CHANGE  STATUS 

(6)  GEN  REPORT 

The  following  is  a  brief  description  of  each  menu  bar  selection: 

A.  SYSTEM  MENU  (ALT-Y)  2 

This  menu  allows  the  user  to  access  information  about  the  software  release  and 
view/raodify  the  raw  data  contained  in  the  RMRS  system  databases,  along  with  the  convention;>l 
operating  system  access  functions  that  allow  DOS  shell  operations  and  program  temiination. 

About.  Choosing  this  command  will  cause  the  appearance  of  a  dialog  box  that  shoves 
version  information  for  the  RMRS  system  software.  Press  any  key  to  close  the  box. 

Edit  Data  (Alt-E).  The  System  /  Edit  Data  command  lets  you  view  and/or  modify  the 
raw  data  contained  in  the  seven  RMRS  databases.  No  special  administrator  privileges  are  needed 
to  modify  the  databases  at  this  time.  However,  since  the  integrity  of  the  RMRS  system  output 
depends  entirely  on  that  of  the  data  contained  within  these  databases,  future  system  enhancements 
should  include  some  security  mechanism  that  regulates  the  data  modification  privilege  (e  g.,  a 
password).  For  a  description  of  the  features  available  in  the  datafile  edit  module  consult  the  online 
help. 


DOS  shell  (Alt-D).  The  System  /  DOS  Shell  command  lets  you  temporarily  exit  the 
RMRS  system  to  enter  a  DOS  command  or  program.  To  return  to  the  RMRS  system,  type  f-iXn 
and  press  <ENTER>. 


^Some  menus  and  menu  choices  have  short  cut  keys.  These  keys  are  indicated  in  parenthesis. 


Figure  3.  System  Menu. 
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Figure  4.  About  Screen. 
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Figure  5.  Edit  Data  Menu. 

Quit  (Alt-Q).  The  System  /  Quit  command,  upon  verification,  exii.->  the  RMRS  system 
program,  removes  it  from  memory,  and  returns  you  to  the  DOS  command  line. 

B.  INIT/SETUP  MENU  (ALT-I) 

This  menu  allows  the  user  to  load  new  supply  files  after  program  start-up 

Load  new  AB  supply  file.  The  Init/Setup  /  Load  New  Supply  File  command  lets  you 
convert  a  raw  Airbase  supply  file  to  its  corresponding  RMRS  system  database.  This  command 
selects  a  secondary  pulldown  menu  presenting  two  choices:  AB  materials  supply  file,  and  AB 
equipment  supply  file.  Both  commands  open  a  dialog  box  that  will  accept  the  complete 
path/filename  specification  for  the  supply  file  to  be  loaded. 

C.  PROCESS  MENU  (ALT-P) 

This  menu  allows  the  user  to  load  newly  arrived  PDES  output  repair  files  and. 
subsequently,  allocate  material  resources  to  a  repair,  barring  any  unresolved  resource  cdiiflict'.. 
thereby  generating  possible  repairs  to  be  passed  to  the  RMRS  scheduler. 


tnlt/Setup 


Process  Schedule  Change  Status  Cen  fieport 


oad  new  RB  supply  file 


B  Materials  supply  file 


RB  equipment  supply  file 


ri  Help  Load  a  new  flB  materials  supply  file  from  disk 


Figure  6.  Init/Setup  Menu. 


System  Iiiit/Setup 


Process 


Schedule  Change  Status  Cen  Beport 


uto  Mode 


Select  facility 
Compromise  Ketry 


ri  Help  1  Process  ALL  new  PDES  facility  repair  files  in  priority  order 


Figure  7.  Process  Menu. 
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Auto  mode.  The  Process  ,  Auto  Mode  command  lets  you  (1)  "process  '  all  o!  she  acui> 
arrived  PDES  facility  repair  files;  (2)  “process”  load  repair  data  into  RMRS  databases  from  PDHS 
.EQP.  .MAT,  and  .OUT  files;  and  (3)  allocate  material  resources  to  those  repairs  if  cnher 
resource  conflicts  occurred  or  all  conflicts  were  resolved. 

“Newly  arrived”  PDES  files  are  those  found  in  the  PDES  Input  Directory  .After 
“processing,”  the  PDES  files  (.EQP,  .MAT,  and  .OUT  files)  are  placed  in  a  PDES  Archive 
Directory.  These  archived  copies  are  kept  as  a  safety  precaution  because  the  corresponding  copies 
in  the  PDES  Input  Directory  are  removed  after  the  RMRS  system  'Process'  phase. 

Select.  The  Process  !  Select  Facility  command  lets  you  “process”  only  the  facilities  that 
you  select  from  the  newly  arrived  PDES  facility  repair  files.  It  displays  a  file-selection  dialog  box 
for  you  to  select  the  facility  repair  files  that  are  to  be  “processed.” 

The  dialog  box  contains  a  file  list  of  .EQP  files  corresponding  to  each  available  PDE.S 
facility  repair  file  set.  Press  the  UP/DN  arrows  to  peruse  the  list  and  press  <ENTER>  to  mark  a 
facility  file  for  selection.  When  finished  simply  type  Ctrl-<ENTER>  to  accept  or  <FSr>  to 
cancel. 


Compromise.  The  Process  /  Compromise  Retry  command  lets  you  attempt  to  retry  the 
resolution  of  the  material  resource  conflicts  associated  with  a  (S)uspended  or  {Overridden  repaii 
It  is  called  “retry”  because  when  a  resolvable  resource  conflict  arises  during  the  "process"  stage, 
the  user  is  alerted  and  given  the  opportunity  to  initiate  a  “Compromise”  session.  It  first  display  s  a 
dialog  box  with  a  complete  list  of  all  the  repairs  with  (S)uspended  or  (Oiverridden  status  it  then 
allows  the  user  to  select  the  repair  with  which  to  work. 

Upon  selection,  a  “Compromise”  session  is  initiated  that  presents  the  needed  infomiation  to 
make  material  resource  substitution  decisions.  The  session  window  contains  a  repair  data  box,  a 
conflict  count  status  box,  a  scrollable  material  conflict  list,  a  scrollable  material  supply  listing,  a 
step-by-step  instruction  box,  and  several  selection  display  boxes. 

D.  SCHEDULE  MENU  (ALT-S) 

This  menu  allows  the  u.ser  to  manipulate  scheduling  criteria,  if  desired,  and  to  schedule  tlie 
repairs  that  are  possible. 

Full.  The  Schedule  /  Full  Schedule  command  lets  you  generate  a  new  schedule  with 
regard  only  to  repair  priority.  Repairs  that  may  have  been  previously  scheduled  ;uid  ha\e  ikm 
begun  are  re.scheduled  along  with  newly  arrived  repairs. 
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n  tlplp  »/A  Select  Accept  ESC  Cancel  fill 


.^^HPKOMISE  Envlromwnt 
t8p«ir  Informtion  '  . 


Figure  8,  Compromise  Dialog  Box. 


System  hut/Setup  Process  IffiTTPIrl  Chaiije  Status  Cen  Report 


-aBEmtaai 

update  Schedule 
Set  Priority 


I’ 

FI  Help  I  Schedule  all  repairs  (i.e.  neio  AND  preuiously  scheduled  repairs) 


Figure  9.  Schedule  Menu. 
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Update.  The  Schedule  /  Update  Schedule  command  lets  you  generate  an  amended 
schedule  in  which  previously  scheduled  repairs  retain  their  time  slot  and  new  repairs  ;ire  scheduled 
on  a  priority  order  basis. 

Set.  The  Schedule  /  Set  Priority  command  lets  you  change  the  scheduling  of  a  repair. 
This  allows  manipulation  of  the  prioritized  scheduling  queue  order.  This  command  displav  s  an 
input  screen  that  allows  the  user  to  select  the  repair  of  interest  and  specify  the  new  priorits . 

E.  CHANGE  STATUS  MENU  (ALT^C) 

This  menu  allows  the  user  to  designate  a  job  in  the  repair  possible  list  as  completed  or 
canceled. 

Completed.  The  Change  Status  /  Completed  command  lets  you  change  the  repair  status 
of  a  (Q)ueued  repair  to  (C)ompieted.  T^is  should  be  used  when  notification  has  been  received  that 
a  repair  has  been  completed. 

Canceled.  The  Change  Status  /  Canceled  command  lets  you  change  the  repair  status  ot  a 
(Q)ueued  or  (S)uspended  repair  to  (X)canceled.  This  should  be  used  when  notification  htis  been 
received  that  a  repair  has  been  canceled. 

NOTE:  The  associated  material  resource  requirements  (if  any)  that  were  previousiv 
allocated,  will  be  returned  to  the  Airbase  material  supply  database.  Consequently,  ain  reaenv  atinn 
of  that  repair  would  require  that  it  again  be  “processed”  and  scheduled  as  before. 

F.  GEN  REPORT  MENU  (ALT-R) 

This  menu  allows  the  user  to  generate  repair  schedules  and  reports. 

Summary.  The  Gen  Report  j  Summary  Schedule  command  generates  an  abbreviated 
format  repair  schedule  which  contains  the  “repair  id”  and  desenption,  repair  start  and  completion 
times  and  overall  duration  for  all  repairs  scheduled.  This  information  is  presented  to  the  user  on 
the  screen  and  also  output  to  a  disk  file  named  SUMMARY.REP. 

Detailed.  The  Gen  Report  /  Detailed  Schedule  command  generates  a  schedule  w  ith  same 
information  as  the  summary  schedule  and  also  includes  more  detailed  infonnation  about  the  reptiir 
such  as  equipment  and  material  requirements,  facility  priority,  and  overall  repair  statistics  such  as 
number  of  repairs  scheduled,  number  of  repairs  completed,  etc.  This  information  is  presented  U' 
the  user  on  the  .screen  and  al.so  output  to  a  disk  file  named  DETAILED. REP 
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ri  Help  1  Change  the  status  of  a  qtlEUEB  repair  to  COMPLETED 


Figure  10.  Change  Status  Menu. 


Init/Setup  Pracess  Schedule  Change  Status 


Xaiport 


nnarD^'Schedule 


a 

Detailed  Schedule 
Gantt  Chart 


fl  Help  I  Generate  a  tabular  schedule  listing 


Figure  1 1 .  Gen  Report  Menu. 
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Gantt.  The  Gen  Report  j  Gantt  Chan  command  generates  a  Gantt  chan  that  ulk)v^^  the 
user  to  quickly  visualize  the  temporal  distribution  of  the  repair  schedule.  This  informauon  is 
presented  to  the  user  on  the  screen  and  also  output  to  a  disk  file  named  GANTT.REP. 
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SECTION  IV 


EXAMPLE  SESSION 


This  section  presents  an  example  case  and  its  corresponding  RMRS  operations  in  order  to 
acquaint  the  user  with  the  operation  of  the  RMRS  system. 


Our  example  case  involves  two  PDES  Input  facility  repair  file  sets  -  one  for  facility  B  i  38 
and  one  for  facility  B4058  and  assumes  the  RMRS  system  repair-specific  databases  are  not  empt\ 
(i.e.,  some  repairs  have  been  processed  by  the  RMRS  system).  These  file  sets  have  just  arrived 
from  the  POST-DAM  Expert  System  (PDES).  At  this  point,  the  PDES  has  evaluated  the  o.i-.sitc 
damage  reports  from  the  Damage  Assessment  Teams  (DATs).  Its  chosen  repair  strategy  is  outlined 
in  the  standard  system  facility  repair  file  set,  consisting  of  a  required  equipment  listing  (.EQP),  a 
required  material  listing  (.MAT),  and  a  repair  information  report  (.OUT).  Figure  1 2  shows  the 
RMRS  startup  as  displayed  when  the  system  is  started. 


flutonated  RESOUKCE  MRHIICER  /  REPAIR  SCHEDULER  (RMRS) 


for  the 

Post^AtUck  FacUltu  Darage  Assessnent  Systm 

«<  POn  -  DAM  >» 

'lerBioB  1.00 


AFCESfl/RACS  Tyndall  RFB.  FL 
Applied  Research  Associates/  Inc. 

Kit  any  key  to  continue  ... 


Figure  12.  Startup  Screen. 


A.  REPAIR  LOADING  |  PROCESSING 


To  initiate  the  RMRS  processing  of  these  two  facility  repair  file  sets,  select  either  the 
Process  /  Auto  Mode  or  the  Process  /  Select  Facility  command  (i.e.  the  AutoModc  or  Select  f  aeiliiv 
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choice  from  the  Process  menu).  In  this  case,  we  would  like  to  process  both  facility  tile  sets  in 
sequence,  so  we  select  Process  /  Auto  Mode  as  shown  in  Figure  1 3.  On  the  other  hand,  to  process 
only  one  facility,  the  Process  /  Select  Facility  command  should  be  selected.  Both  of  the  Process 
menu  commands  perform  three  tasks: 

( 1 )  Load  new  repair  data 

(2)  Resolve  resource  conflicts  if  possible 

(2)  Allocate  the  appropriate  material  resources 


System  Init/Setup  Schedule  Change  Status  Gen  Report 


ri  Help  Process  ALL  iieu  PDES  facility  repair  files  in  prioritg  order 


Figure  13.  Process  j  Auto  Mode  Covnmmd. 

After  loading  all  new  repairs,  the  Process  j  Auto  Mode  command  sets  up  a  prioritized  repair 
queue  from  which  repairs  are  individually  processed  to  determine  resource  availability  and  are  then 
allocated  materials  when  no  resource  conflicts  exists.  In  our  case,  facility  4()5X  has  the  higher 
priority  and.  consequently,  its  repairs  are  processed  first. 

The  first  repair  for  facility  4058  has  been  assigned  a  REPID  of  105  by  RMR.S.  ,uul  is 
evaluated  for  existence  of  resource  conflicts  as  shown  below. 

The  remaining  repairs  for  facility  4058  are  processed  likewise.  The  equipment  and  material 
description  strings  serve  as  the  .search  keys  into  the  respective  supply  databases.  If  located,  the 
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TABLE  1.  RESOURCE  AVAILABILITY  ANALYSIS:  REPID#105 


EQP  requirements 

Found? 

(✓-yes/X-no) 

sc  machine 

✓ 

ramset 

✓ 

ramsci 

✓ 

repair  team 

✓ 

MAT  requirements 

Found  ? 

Enough  avail  ?  (✓-ye.s/X-no) 

2x4  16ft  (2  ea) 

✓ 

✓ 

plywcxxl  4x8  .5in  (3  ea) 

✓ 

✓ 

wire  mesh  (40.0  sqO 

✓ 

✓ 

shotcrete  (5.9  cy) 

✓ 

✓ 

“supply  id”  number  associated  with  the  material  resource  is  added  to  the  corresponding  material 
requirement  record  to  allow  a  more  efficient  numerical  key  search  to  be  used  in  future  searches.  In 
the  equipment  requirement  database,  the  “equipment  id”  number  assignment  is  postponed  until 
scheduling  in  order  to  address  the  situation  of  efficient  time  allocation  for  multiple  supply  listings 
of  identical  equipment  pieces.  When  a  resource  match  is  not  found  in  the  appropriate  suppl\  file, 
that  resource  requirement  constitutes  one  instance  of  a  resource  availability  conflict  (conllict.  for 
short).  All  equipment  conflicts  are  of  this  type.  On  the  other  hand,  a  material  conllict  can  also 
arise  from  the  situation  where  the  material  is  listed  in  the  supply,  but  the  quantity  avtiiiable  does  not 
satisfy  the  requirement  as  specified. 

A  repair  that  has  resource  conflicts  is  handled  in  one  of  two  ways,  depending  upon  the 
types  of  conflicts  involved.  If  the  repair  has  one  or  more  equipment  conflicts,  that  repair  is 
automatically  (X)canceled.  However,  the  user  is  free  to  make  any  manual  resolution  he  desires. 
On  the  other  hand,  if  the  resource  conflicts  are  limited  to  just  materials,  the  user  is  alerted  to  this 
repair  status  and  given  the  opportunity  to  enter  the  RMRS  Compromise  mode  to  make  appropriate 
material  substitutions  towards  a  resolution.  In  addition,  a  priority  override  solution  is  also 
available  for  resolution  of  a  material  conflict,  provided  that  the  needed  materials  were  previousls 
allocated  to  a  lower  priority  repair  (that  has  not  been  started  and  is  not  (Docked  in  schedule)  from 
which  they  can  be  stolen,  if  desired  by  the  user. 

For  this  example,  no  resource  conflicts  occurred  for  any  of  the  repairs  processed.  The 
required  materials  for  each  repair  were  deducted  from  the  available  amounts  in  the  material  supph . 
the  material  requirement  records  were  marked  as  (A)llocated,  and  the  repair  id  records  u  ere  marked 
as  (P)ossible.  Also,  the  equipment  requirement  records  associated  with  these  are  left  marked 
(N)ew. 
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B.  SCHEDULE  REPAIRS 


Having  been  Processed  by  the  RMRS  system,  all  (P)ossible  repairs  are  now  ready  to  be 
included  in  the  schedule.  At  this  point  there  are  two  scheduling  options.  Full  Schedule  and  Update 
Schedule.  The  Full  Schedule  command  generates  a  new  schedule  in  which  all  previously 
scheduled  repairs  are  rescheduled  along  with  the  newly  arrived  repairs.  The  Update  Schedule 
command  retains  the  current  schedule  and  amends  the  newly  arrived  repairs.  This  example  uses 
select  the  Schedule  /  Full  Schedule  command  as  shown  in  Figure  14. 


System  liiit/Setup  Process 


Schedule 


Chsnue  Status  Ceii  Report 


Update  Schedule 
Set  Priority 


ri  Help  1  Schedule  all  repairs  (i.e.  new  flHD  preoiouslij  scheduled  repairs) 


Figure  14.  Schedule  I  Full  Schedule  Commmd. 


The  actual  database  manipulation  involved  here  occurs  primarily  within  the  equipment 
requirements  database,  EQPREQ.DBF.  Each  repair  is  taken  in  facility  priority  order  and  scheduled 
at  the  earliest  possible  time  based  on  equipment  availability.  Upon  completion,  all  of  the  repaii  s 
will  have  corresponding  equipment  requirement  records  possessing  a  valid  "equipment  id 
number,  a  START  time,  and  a  (Q)ueued  status.  This  information  constitutes  the  repair  schedule 

C.  REPORT  GENERATION 

The  RMRS  system  allows  for  the  generation  of  several  output  reports  includinj:  the 
Summary,  the  Detail,  and  the  Gantt  chart  formats.  For  this  case  we  will  choose  the  (ien  Repun 
Gantt  Chart  menu  choice  as  shown  in  Figure  15.  Once  this  menu  choice  is  selected  a  sciollahle 


report  is  displayed  on  the  screen  similar  to  the  one  shown  in  Figure  16.  This  report  tuinauo 
information  on  the  repair  scheduling  and  equipment  allocation.  This  report  i.s  u.sefu!  tor  viewing  a 
schedule  and  then  iterating  on  the  results.  A  copy  of  the  report  also  is  also  written  lo  a  file,  named 
GANTT.REP,  which  can  be  output  on  a  hard  copy  device. 


Sijsten 


Xepart  -  Gantt  Cliart 


Scjwduie  4$  of  :Tliu  Jan  89  12:35:1B  1932 
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Total  repair  ties  Is  8.58  hours  , 
Schedule 


EEE 
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Iiiit/Selitp 


Schedule  Clunye  Status 


ilplpMent  Allocation  Schedule 
-  I 

XrtKSIT  ID  4108:JJJLLLLBBBBBBBFFFFFFFFFFFFFFFFF 

BBHSET  ID  41Dl:JJJLLLll)BBB]IBBFFFFFFFFfFFFFFFFF 


n  Help  I  Generate  a  gantt  chart 


Figure  15.  Gen  Report  I  Gantt  Chart  Menu  Choice. 
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FI  Help  Generate  a  gantt  chart 


Figure  16.  Gantt  Chart  Report. 


SECTION  V 


CONCLUSIONS  AND  RECOMMENDATIONS 


The  RMRS  prototype  software  clearly  demonstrated  an  architecture  that  was  able  to  quickl\ 
and  efficiently  manage  Airbase  resources  and  schedule  expedient  repairs  for  mission  critical 
facilities.  For  repairs  with  no  resource  conflicts,  the  RMRS  system  could  operate  with  minimal 
user  intervention  When  conflicts  were  present,  resolution  was  quick  and  simple  in  the 
compromise  environment.  By  allowing  the  user  unlimited  access  to  all  of  the  RMRS  data  files, 
complete  control  of  the  resource  allocation  and  scheduling  processes  was  possible. 

For  full-scale  development  of  the  RMRS  software,  the  following  issues  should  be 
addressed; 

1 .  Include  a  communications  module  to  allow  RMRS  to  receive  PDFS  data  files  in  die 
background  while  continuing  to  work  uninterrupted. 

2.  Incorporate  Expert  System  capabilities  to  provide  RMRS  the  capability  to  suggest 
resource  conflict  solutions  and  changes  in  repair  strategies  based  on  eurreni 
resource  supplied  and  equipment  usage. 

3.  Develop  an  optimized  scheduler  to  generate  schedules  based  on  not  only  facility 
priority  but  also  time  and  resource  optimization. 
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APPENDIX  A 


INSTALLATION  PROCEDURE  FOR  RESOURCE 
MANAGER/REPAIR  SCHEDULER  (RMRS) 

I.  INSTALLATION 

A .  System  Requirements 

The  Resource  Manager/Repair  Scheduler  (RMRS)  is  designed  to  run  on  the  IBM 
PC  family  of  computers,  including  the  XT  and  AT,  along  with  all  true  IBM  compatibles.  The 
following  “minimum”  hardware  configuration  has  been  established: 

RAM  storage:  640k 

Hard  Disk  storage:  2  mb  free  (disk  space  limits  number  of  repairs) 

Peripherals: 

(1)  color  or  monochrome  text  display  adaptor  and  monitor 
(1)5  V4  or  3  V2  floppy  disk  drive 
(1)  line  printer 

B .  Installation  Procedure 

The  Resource  Manager/Repair  Scheduler  (RMRS)  comes  with  an  automatic 
installation  program  called  INSTALL.  INSTALL  automatically  copies  the  RMRS  files  to  the 
appropriate  directories  on  your  hard  disk  drive.  For  reference,  the  README  file  on  the  installation 
disk  includes  a  list  of  the  distribution  files  along  with  recent  information  about  RMRS. 

To  install  RMRS: 

( 1 )  Insert  the  installation  disk  into  drive  A 


(2)  Type  A;INSTALL  <retum> 


(3)  Follow  the  prompts 


Note:  If  your  installation  drive  is  drive  B,  substitute  B  for  A  in  steps  1  and  2. 
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RMRS  SOURCE  CODE 

I .  RMRS  SOURCE  CODE 

RMRS  was  developed  using  the  C  Language  and  two  subroutine  libraries.  Borland  C++ 
-*  2.0  was  chosen  as  the  development  environment  because  of  availability  and  favorable  past 

experience.  Although  this  compiler  supports  a  full  implementation  of  AT&T's  C++  version  2.0. 
as  well  as  ANSI  C,  only  ANSI  C  was  used  to  develop  RMRS.  Greenleaf  DataWindows'^  version 
2.12  was  used  to  develop  the  user  interface,  and  Code  Base  4.2®  was  used  for  the  data  file 
management.  These  libraries  were  chosen  for  their  maturity  and  because  both  libraries  have  UNIX 
implementations.  Both  the  DataWindows  and  Code  Base  license  agreement  allow  for  royalty-free 
distribution  of  applications,  such  as  RMRS,  that  contain  object  code  from  their  libraries. 
However,  distribution  of  the  libraries  is  prohibited.  Thus,  any  person  wishing  to  make 
modifications  to  the  RMRS  program  will  be  required  to  obtain  both  DataWindows  2, 1 2  and  Code 
Base  4.2.  Both  of  these  packages  are  readily  available  at  minimal  cost. 
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/* 

* 

*  comprom . c 

* 

*  module  to  compromise  repair  material  conflicts 

* 

*  DoCompromise ( ) 

* 

*  LAST  REV:  12/30/91 

* 

* 

*/ 

tinclude  <stdio.h> 

♦include  <stdlib.h> 

♦include  <string.h> 

/*  tooDcit  header  files  */ 

♦include  "dw.h" 

♦Include  "pwrbase.h" 

♦Include  "color. h" 

♦include  "Ikumod.h" 

♦include  "d4base.h" 

♦include  "u4error.h" 

/*  custom  header  files  */ 

♦Include  "rmrsutil.h" 

♦Include  "sysdefs.h" 

♦include  "procutil.h" 

♦include  "miscutil.h" 

♦include  "dbutil.h" 

/*  items  that  can  be  highlighted  */ 

♦define  CONFSTAT  1 
♦define  SELTCONF  2 
♦define  SELTSUB  3 
♦define  CURSTAT  4 
♦define  INSTRCT  5 

/*  Ctrl  items  that  can  be  selected  */ 

♦define  CONFSEL  1 
♦define  SUPPSEL  2 
♦define  SELTQTy  3 
♦define  NOSELCT  4 


/*  key  defs  for  Iku  return  value  */ 
♦define  CANCEL_SEL  -1 
♦define  ABORTSUB  SEL  -2 


/*  DoCompromise ( ) 


HWND  Inltcompwin (void) ; 

HWND  initkeymapbar (void) ; 

void  delcompwin (void) ; 

void  delkeymapbar (void) ; 

void  setupwin format (void) ; 

void  dsplyrepinfo (REPDATANODE  *) ; 

void  dsplycompstatus (int) ; 

void  dsplyconfstat (LBOXSTA  *); 

void  dsplycompsuccessbox (void) ; 

void  updtcompstatus (LISTITEM  *); 

char  *  getnextmatconf (REQLSTNODE  **); 

char  *  getfirstmatconf (REQLSTNODE  *,  REQLSTNODE  **) ; 

char  *  getsupprecstr (long) ; 

int  isoverrideposs (LBOXSTA  *); 

int  asktoacceptoverride (void) ; 

void  hilite(int); 

void  unhilite (int) ; 

void  ctrlpass (int,  int) ; 

float  getqty (void) ; 

int  verifyabort (void) ; 

int  chkqtyvssupp (float,  long); 

int  askifcorrectqty (void) ; 

void  alerttoqtylimit (long) ; 
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75  void  dsplysubaccepted (void) ; 

76  void  recordsub (LBOXSTA  *,  float,  long); 

77  void  set ovrdf lag (LBOXSTA  *); 

78 

79  /* - */ 

80 

81  static  HWND  KeymapBar; 

82  static  HWND  CompWln; 

83 

84 

85 
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int  DoCompromlse (long  repid,  REQLSTNODE  *  reqlstptr) 

85  ( 

86  /* 

87  *  ARGUMENT 

88  *  (long)  repid  -  repair  id 

89  *  (REQLSTNODE  *)  reqlstptr  -  pointer  to  resource  availability  analysis  list 

90  * 

91  *  DESCRIPTION 

92  *  Allows  the  user  to  interactively  attempt  a  conflict  resolution  strategy 

93  *  through  material  substitutions  and  priority  overrides  on  a  repair 

94  * 

95  *  RETURNS 

96  *  (int)  SUCCESS  or  FAILURE 

97  * 

98  *  DATABASES  AFFECTED  (whether  direct  or  Indirect) 

99  *  matsup  dbf  (matsup_ndx2  -  MATID  index  )  -  (CSS)  to  be  added 

100  * 

101  */ 

102 

103  LISTITEM  *  conflboxlst; 

104  LBOXSTA  *  conflbox; 

105  REQLSTNODE  *  currptr; 

106  char  *  strptr,  *  choice; 

107  REPDATANODE  *  repinfobDc; 

108  long  selrecno; 

109  char  *  supprecstr; 

110  bool  success  -  FALSE,  acceptovrd  -  FALSE,  validqty,  acceptqty; 

111  /*  these  will  be  running  totals  •/ 

112  int  numofmatreqs  «  5; 

113  unsigned  int  icey; 

114  float  subqty; 

115 

116 

117  if  (iseqpconf (reqlstptr) ) 

117  { 

118  u4error (INVCOMPCALL,  "Invalid  call  to  COMPROMISE",  "function:  ", 

119  "NO  CONFLICTS  DETECTED  (",  (char  *)  0) ; 

120  return  (-1); 

121  } 

122  KeymapBar  -  init)ceymapbar  0  ; 

123  CompWin  »  initcompwin 0 ; 

124  repinfobDc  =«  GetRepData  (repid) ; 

125  dsplyrepinfo (repinfobDc) ; 

126  dsplycompstatus (numofmatreqs) ; 

127  setupwinformat ( ) ; 

128 

129 

130 

131  /*  load  list  box  linJced  list  with  conflicting  mat  record  strings  */ 

132  conflboxlst  -  initlistO; 

133  strptr  “  getflrstmatconf (reqlstptr,  (  currptr); 

134  while  (strptr  !“  NULL) 

134  { 

135  adtolist (conflboxlst,  strptr); 

136  strptr  -  getnextmatconf ((  currptr) ; 

137  ) 

138  updtcompstatus (conflboxlst) ; 

139 

140  /•  CONFLICT  PROCESSING  LOOP  */ 

141  do 

141  ( 

142  ctrlpass (NOSELCT,  CONFSEL) ; 

143 

144  hilite (CONFSTAT) ; 

145  hilite (CURSTAT) ; 

146  hilite (INSTRCT) ; 

147 

148  /*  select  material  conflict  from  conflict  list  •/ 

149  conflbox  =  lboxinlt(4,  37,  4,  REVHIGHNORML,  HELP,  REVNORML,  FRSINGLE, 

150  REVNORML,  conflboxlst); 

151  dsplyconfstat (conflbox) ; 

152  CONFSELBOX  :  //  conflict  selection  box 

153  while  (()cey  -  get)cey())  !-  ESC  )cey  !-  ENTR  &&  )cey  F3) 

153  { 
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154 

155 

156 

157 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

174 

175 

176 

177 

178 

179 

180 
181 
182 
182 

183 

184 

184 

185 

186 

187 

188 

189 

190 

191 

191 

192 

193 

194 

195 

ection*/ 

196 

197 

198 

199 

200 
201 
201 
202 
203 

203 

204 

204 

205 

205 

206 

207 

208 

209 

210 
211 
212 

213 

214 

215 

216 
216 


Iboxctrl (conflbox,  key); 
dsplyconfstat (conflbox) ; 

} 

if  (key  —  ESC) 

{ 

if  (verifyabort  0 ) 
goto  CANCEL; 
goto  ABORTSOB; 

) 

else  if  (key  --  F3)  goto  CONFSELBOX; 
choice  -  Iboxsel (conflbox) ; 
unhilite (CONFSTAT) ; 
hilite (SELTCONF) ; 

vratputf (CompWin,  11,  36,  HELP,  "  %-38.38s  “,  choice);/*  display  conflict  selection*/ 

ctrlpass (CONFSEL,  NOSELCT) ; 

if  (isoverrideposs (conflbox) ) 

acceptovrd  -  asktoacceptoverride <) ; 

else 

acceptovrd  -  FALSE; 
if  (I  acceptovrd) 

( 

ctrlpass (NOSELCT,  SUPPSEL) ; 

/*  select  substition  material  from  AB  supply  */ 

LKUmodirlt  () ; 

LKUmodposition  (17,  3,  4); 

LKUmodattributes (0x10  I  0x03,  0x20  I  0x00); 

LKUraodselect (matsup_dbf,  -1) ; 

if  ( (selrecno  -  LKUmodlookup () )  <  0) 

{ 

ctrlpass (SUPPSEL,  NOSELCT); 
switch  (<int)  selrecno) 

( 

case  (CANCEL_SEL)  :  if  (verifyabort () ) 
goto~CANCEL; 

case  (ABORTSUB_SEL)  ;  goto  ABORTSUB; 
default  :; 

) 

) 

else 

{ 

/*  getsupprecstr  and  chkqtyvssupp  require  MATSUP.DBF  */ 
supprecstr  ■  getsupprecstr (selrecno) ; 
hilite  (SELTSOB) ; 

vratputf (CompWin,  13,  36,  HELP,  "  %-38.385  ",  supprecstr);/*  display  supply  sel 


ctrlpass (SUPPSEL,  SELTQTY) ; 
accept qty  -  FALSE; 

/*  get  qty,  validate,  verify  substitution  */ 
do 
( 

accept qty  -  FALSE; 

if  ( (subqty  -  getqtyO)  <  0) 

( 

switch  ( (int)  subqty) 

{ 

case  (CANCEL_SEL)  ;  if  (verifyabort 0 ) 

( 

ctrlpass (SELTQTY,  NOSELCT) ; 
goto  CANCEL; 

) 

break; 

case  (ABORTSUB_SEL)  :  ctrlpass (SELTQTY,  NOSELCT) ; 

goto  ABORTSOB; 
default  : ; 

) 

} 

else 

f 
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217 

218 

219 

220 
221 
222 
223 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

246 

247 

248 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 
261 
262 

263  ) 

264 

265  /* 

266 
267 


valldqty  «  chkqtyvssupp (subqty,  selrecno) ; 
if  (valldqty) 

acceptqty  «  askifcorrectqty () ; 

else 

alerttoqtylimlt (selrecno) ; 

) 

) 

wliile  {!  valldqty  II  !  acceptqty); 

d4select (mataup_dbf) ; 
ctrlpass (SELTQTY,  NOSELCT) ; 
dsplysubacceptedO  ; 

} 

/*  record  substitution  */ 

recordsub (conflbox,  subqty,  selrecno); 

} 

else 

setovrdflag (conflbox) ; 
rmfmlist (conflboxlst,  choice); 

ABORTSUB  : 
unhilite  (SELTCONF) ; 
unhllite (SELTSUB) ; 

vratputf (CompWin,  11,  36,  HELP,  "  %-38.38s  ",  "  ");/*  clr  conf  selection  display*/ 
vratputf (CompWin,  13,  36,  HELP,  "  %-38.38s  ",  "  ");/*  clr  sub  selection  display  */ 
Iboxdel (conflbox) ; 
if  (!  distent (conflboxlst) ) ) 
success  «  TRUE; 
updteompstatus (conflboxlst) ; 


) 

while  (!  success) ; 

if  (success) 

( 

unhilite (INSTRCT) ; 
dsplycompsuccessbox 0 ; 

} 

CANCEL  s  //  cancel  compromise 

Iboxdel (conflbox) ; 

freelist (conflboxlst,  0); 

free( (REPDATANODE  *)  repinfobDc) ; 

delcompwin () ; 

deDceymapbar  () ; 

if  (success) 

return  (SUCCESS) ; 
return  (FAILURE) ; 


268  /*  functions  not  called  directly  from  DoCompromise ()  */ 

269  /* - */ 

270  char  getavailstatofsel (LBOXSTA  *); 

271  char  *  bldlststr (REQLSTNODE  *) ; 

272  char  *  getconfstat (LBOXSTA  *); 

273  HWNO  dsplymessbox (void) ; 

274  void  delmessbox (HWND) ; 

275  void  delay (int); 

276  /* - */ 

277 


278  HWND  Inltlceymapbar  (void) 

278  ( 

279  /* 

280  *  ARGUMENT 

281  • 

282  *  DESCRIPTION 

283  *  Initializes  )«ey  map  bar  for  COMPROMISE  environment 

284  * 

285  *  RETURNS 

286  *  (HWND)  Icey  map  bar  window  handle 
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287  * 

288  */ 

289 

290  HWND  Jteymapbar; 

291 

292  /*  composed  attributes  */ 

293  #define  KEYS  REVERR 

294 

295  keymapbar  -  vcreat(3,  80,  EMFHNORML,  YES); 

296  vwind (keymapbar,  1,  80,  0,  0); 

297  vlocate (keymapbar,  24,  0); 

298  visible (keymapbar,  YES,  YES) ; 

299  vatps(0,  0,  "  FI  Help  /  Select  DY  Accept  ESC  Cancel  All"); 


300 

modattr (keymapbar. 

0, 

1,  2, 

KEYS) ; 

301 

modattr (keymapbar. 

0, 

10,  1, 

KEYS) 

302 

modattr (keymapbar. 

0, 

12,  1, 

KEYS) 

303 

modattr (keymapbar. 

0, 

22,  3, 

KEYS) 

304 

modattr (keymapbar. 

0, 

34,  3, 

KEYS) 

305  vatpsd,  0,  "  FI  Help  /  Select  DY  Accept  F2  Seek  Matid  F3  Abort  Sub  ESC  Cancel  All" 

306  modattr (keymapbar,  1,  1,  2,  KEYS); 


307 

modattr (keymapbar. 

1, 

10, 

1, 

KEYS) 

308 

modattr (keymapbar. 

1, 

12, 

1, 

KEYS) 

309 

modattr (keymapbar. 

1, 

22, 

3, 

KEYS) 

310 

modattr (keymapbar. 

1, 

34, 

2, 

KEYS) 

311 

modattr (keymapbar. 

1, 

49, 

2, 

KEYS) 

312 

modattr (keymapbar. 

1, 

63, 

3, 

KEYS) 

313  vatps(2,  0,  "  FI  Help  <0..9, Enter  Qty  BKSP  Edit  DY  Accept  F3  Abort  Sub"); 


314 

modattr (keymapbar. 

2, 

1, 

2,  KEYS); 

315 

modattr (keymapbar. 

2, 

11, 

1,  KEYS); 

316 

modattr (keymapbar. 

2, 

14, 

1,  KEYS); 

317 

modattr (keymapbar. 

2, 

17, 

1,  KEYS); 

318 

modattr (keymapbar, 

2, 

32, 

4,  KEYS); 

319 

modattr (keymapbar, 

2, 

43, 

3,  KEYS); 

320 

modattr (keymapbar. 

2, 

55, 

2,  KEYS); 

321  visible (keymapbar,  YES,  NO) ; 

322  return  (keymapbar) ; 

323  ) 

324 

325  HWND  initcompMin (void) 

325  { 

326  /* 

327  »  ARGUMENT 

328  * 

329  *  DESCRIPTION 

330  *  Initializes  COMPROMISE  environment  window 

331  * 

332  *  RETURNS 

333  "  (HWND)  COMPROMISE  environment  window  liandle 

334  * 

335  */ 

336 

337  HWND  compwin; 

338 

339 

340  compwin  -  vcreat(22,  78,  WHITE_ON_BI,UE,  YES); 

341  vlocate (compwin,  1,  1); 

342  vframe (compwin,  WHITE_ON_BLUE,  FRS INGLE ) ; 

343  vmt it le (compwin,  _TOP,  CENTERJUST,  WHITE_ON_BLOE,  "  COMPROMISE  Environment  ") ; 

344  visible (compwin,  YES,  YES); 

345  return  (compwin) ; 

346  } 

347 

348  void  delcompwin (void) 

348  ( 

349  /* 

350  *  ARGUMENT 

351  * 

352  *  DESCRIPTION 

353  *  Deletes  COMPROMISE  environment  window 

354  * 

355  *  RETURNS 

356  * 

357  */ 
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358  vdelete (CompWin,  NONE) ; 

359  ) 

360 

361  void  delkeymapbar (void) 

361  ( 

362  /* 

363  *  ARGUMENT 

364  * 

365  *  DESCRIPTION 

366  •  Deletes  )cey  map  bar  window 

367  * 

368  *  RETURNS 

369  * 

370  */ 

371  vdelete (KeymapBar,  NONE) ; 

372  } 

373 

374  void  dspiycompsuccessbox (void) 

374  { 

375  /* 

376  *  ARGUMENT 

377  * 

378  *  DESCRIPTION 

379  *  Displays  COMPROMISE  "Success"  message  box 

380  * 

381  *  RETURNS 

382  * 

383  */ 

384 

385  HWND  compsuccwin; 

386 

387  compsuccwin  -  dsplymessbox () ; 

388  vratpsd,  0,  GRYBTXT,  "  ***•  SUCCESS  ****  "); 

389  vratps(3,  0,  GRYBTXT,  "  All  conflicting  material  "); 

390  vratps(4,  0,  GRYBTXT,  "  requirements  resolved!  "); 

391  vratputf  (compsuccwin,  7,  0,  KEYALERT,  "  <  Press  any  )tey  >  ")  ; 

392  get)cey(); 

393  delmessbox (compsuccwin) ; 

394  return; 

395  ) 

396 

397  HNMD  dsplymessbox (void) 

397  ( 

398  /* 

399  *  ARGUMENT 

400  * 

401  *  DESCRIPTION 

402  *  Displays  a  standard  message  box 

403  * 

404  *  RETURNS 

405  *  (HWND)  message  box  window  handle 

406  * 

407  */ 

408 

409  HWND  messwin; 

410 

411  messwin  »  vcreat(8,  30,  GREYBOX,  YES); 

412  vlocate (messwin,  8,  24); 

413  vframe (messwin,  GREYBOX,  FRDOUBLE) ; 

414  vshadow (messwin,  CURRENT,  SHADOWlOO,  BOTTOMRIGHT) ; 

415  visible (messwin,  YES,  YES)  ; 

416  return  (messwin) ; 

417  ) 

418 

419  void  delmessbox (HWND  messwin) 

419  { 

420  /* 

421  *  ARGUMENT 

422  *  (HWND)  messwin  -  message  box  window  handle 

423  * 

424  *  DESCRIPTION 

425  *  Deletes  message  box 

426  * 

427  *  RETURNS 
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428  * 

429  */ 

430 

431  vdelete (messwin,  NONE); 

432  vcurrent (CompWin) ; 

433  return; 

434  ) 

435 

436  void  dsplyrepinfoCREPDATANODE  *  blkptr) 

436  ( 

437  /* 

438  *  ARGUMENT 

439  *  (REPDATANODE  *)  blkptr  -  pointer  to  repair  data  block 

440  * 

441  *  DESCRIPTION 

442  *  Displays  the  repair  data  block  on  the  COMPROMISE  environment  window 

443  * 

444  *  RETURNS 

445  * 

446  *t 

447 

448  if  (blkptr  —  (REPDATANODE  *)  NULL) 

448  { 

449  u4error (ERROR,  "error",  (char  *>  0); 

450  return; 

451  ) 


452 

vratputf (CompWin, 

1, 

2, 

WHITE 

ON  BLUE,  "Repair  information"); 

453 

vratputf (CompWin, 

2, 

2, 

ERR, 

n 

Repid 

%-15d". 

blkptr->repid) ; 

454 

vratputf (CompWin, 

3, 

2, 

ERR, 

n 

Facnum 

B%-14d" 

,  blkptr->facnum) ; 

455 

vratputf (CompWin, 

4, 

2, 

ERR, 

n 

Priority 

%-15d". 

blkptr->priority) ; 

456 

vratputf (CompWin, 

5, 

2, 

ERR, 

M 

Elenum 

%-15d". 

blkptr->elenum)  ; 

457 

vratputf (CompWin, 

6, 

2, 

ERR, 

n 

Elem  desc 

%-15s". 

blkptr->eledescstr)  ; 

458 

vratputf (CompWin, 

■»/ 

2, 

ERR, 

n 

Dam  mode 

%-15s". 

blkptr->dammodestr) ; 

459 

vratputf (CompWin, 

8, 

2, 

ERR, 

n 

Rep  stratgy 

%-15s". 

blkptr->repstgystr) ; 

460  return; 

461  } 

462 

463  void  dsplycompstatus (int  numofmatreqs) 

463  { 

464  /* 

465  *  ARGUMENT 

466  *  (int)  numofmatreqs  -  number  of  material  requirements  for  a  repair 

467  * 

468  *  DESCRIPTION 

469  *  Displays  COMPROMISE  status  block  of  repair  (i.e.  block  specifies 

470  *  how  many  material  conflicts  exist  out  of  total  material  requirements) 

471  * 

472  *  RETURNS 

473  * 

474  */ 

475 

476  vratputf (CompWin,  10,  2,  KHITE_ON_BLUE,  "Current  status"); 

477  vratputf (CompWin,  11,  2,  REVHIGHHELP,  "  %2.2s  ",  "  ") ; 

478  vratputf (CompWin,  11,  7,  ERR,  "  conflicts  out  of  "); 

479  vratputf (CompWin,  12,  2,  REVHIGHHELP,  "  %2d  ",  numofmatreqs); 

480  vratputf (CompWin,  12,  7,  ERR,  "  material  requirements  ") ; 

481  return; 

482  ) 

483 

484 

485 

486  char  *  bldlststr (REQLSTNODE  *  ptr) 

486  { 

487  /* 

488  *  ARGUMENT 

489  *  (REQLSTNODE  *)  ptr  -  pointer  to  resource  availability  analysis  list 

490  *  node  corresponding  to  material 

491  *  requirement 

492  * 

493  *  DESCRIPTION 

494  *  Builds  a  string  representation  of  material  record, 

495  *  string  storage  is  within  the  same  REQLSTNODE  node 

496  * 

497  *  RETURNS 
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498  *  <char  *)  Pointer  to  that  string  within  the  REQLSTNODE  node  to  be 

499  *  given  to  DATAWINDOWS  listbox  function 

500  • 

501  *  DATABASES  AFFECTED  {whether  direct  or  indirect) 

502  *  matreq_dbf  (no  index  used) 

503  * 

504  */ 

505 

506  extern  matreq_dbf; 

507  char  matdesc[60],  unit[10J; 

508 

509  d4select (matreq_dbf ) ; 

510  d4go(ptr->recno) ; 

511  strcpy (matdesc,  f4str (f4ref ("MATDESC") ) ) ; 

512  strcpy (unit,  f4str (f4ref ("UNIT") ) ) ; 

513  strcpy (ptr->recstr, 

514  sprintf (ptr->recstr,  "%51d  %20,20s  %7.1f  %3.3s  ”, 

515  f41ong(f4ref ("MATID")), 

516  matdesc, 

517  f4double(f4ref ("QTY")), 

518  unit); 

519  return  (ptr->recstr) ; 

520  ) 

521 

522  chat  *  getfirstmatconf (REQLSTNODE  *  hdptr,  REQLSTNODE  **ptrptr) 

522  { 

523  /* 

524  *  ARGUMENT 

525  *  (REQLSTNODE  *)  hdptr  -  pointer  to  headnode  of  resource  availability 

526  *  analysis  list 

527  *  (REQLSTNODE  *)  ptrptr  -  pointer  to  a  pointer  to  the  current  material 

528  *  conflict  node  (allowing  pointer  modification) 

529  * 

530  *  DESCRIPTION 

531  *  Increments  node  pointer  to  first  material  conflict  node  in  the 

532  *  resource  availability  analysis  list  at  which  time  a  material 

533  *  record  node-resident  text  string  is  built  for  that  conflict 

534  * 

535  *  RETURNS 

536  *  (char  *)  Pointer  to  that  string  within  the  REQLSTNODE  node  to  be 

537  *  given  to  DATAWINDOWS  listbox  function 

538  • 

539  •  DATABASES  AFFECTED  (whether  direct  or  indirect) 

540  *  matreq_dbf  (no  index  used) 

541  * 

542  */ 

543 

544  char  •  retstrptr; 

545 

546  (*  ptrptr)  -  (REQLSTNODE  *)  NULL; 

547  if  (hdptr  —  (REQLSTNODE  *)  NULL) 

547  ( 

548  u4error(EMPTYLST,  "Empty  list  error",  (char  *)  0); 

549  return  (NULL) ; 

550  ) 

551  (*  ptrptr)  •  (hdptr->next) ->next;  /*  s)iip  past  first  eqp  rec  */ 

552 

553  /*  find  first  material  record  */ 

554  for  {;  (*  ptrptr) ->type  !•>  'M';  (*  ptrptr)  “  (*  ptrptr) ->next) 

555  if  ((*  ptrptr)  —  (REQLSTNODE  *)  NULL) 

555  ( 

556  u4error (NONULLEXPT,  "No  null  ptr  expected",  (char  *)  0); 

557  return  (NULL) ; 

558  ) 

559 

560  /*  find  first  material  conflict  */ 

561  for  (;  (*  ptrptr) ->avallstatus  —  'E';  {*  ptrptr)  -  (*  ptrptr) ->next) 

561  ( 

562  if  ((*  ptrptr)  —  (REQLSTNODE  *)  NULL) 

562  ( 

563  u4error (NONULLEXPT,  "No  null  ptr  expected",  (char  *)  0) ; 

564  return  (NULL) ; 

565  ) 

566  ) 
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567  retstrptr  -  bldlststr(*  ptrptr); 

568  (*  ptrptr)  -  (*  ptrptr) ->next; 

569 

570  return  (retstrptr); 

571  ) 

572 

573 

574  char  *  getnextmatconf (REQLSTNODE  '“ptrptr) 

574  ( 

575  /* 

576  *  ARGUMENT 

577  *  (REQLSTNODE  *)  ptrptr  -  pointer  to  a  pointer  to  the  current  material 

578  *  conflict  node  (allowing  pointer  modification) 

579  * 

580  *  DESCRIPTION 

581  *  Increments  node  pointer  to  next  material  conflict  node  in  the 

582  *  resource  availability  analysis  list  at  which  time  a  material 

583  *  record  node-resident  text  string  is  built  for  that  conflict 

584  * 

585  *  RETURNS 

586  *  (char  *)  Pointer  to  that  string  within  the  REQLSTNOnE  node  to  be 

587  *  given  to  DATAWINDOWS  listbox  function 

588  * 

589  *  DATABASES  AFFECTED  (whether  direct  or  indirect) 

590  *  matreq^dbf  (no  index  used) 

591  * 

592  */ 

593 

594  char  *  retstrptr; 

595 

596  if  ((*  ptrptr)  —  (REQLSTNODE  *)  NULL) 

596  { 

597  return  (NULL) ; 

598  } 

599  /*  find  next  material  conflict  */ 

600  for  (;  (•  ptrptr) ->availstatus  'E';  (*  ptrptr)  -  (*  ptrptr) ->next) 

600  { 

601  if  (((*  ptrptr) ->next)  —  (REQLSTNODE  •)  NULL) 

601  ( 

602  return  (NULL)  ; 

603  ) 

604  } 

605  retstrptr  -  bldlststr(*  ptrptr); 

606  (*  ptrptr)  «  (*  ptrptr) ->next; 

607 

608  return  (retstrptr); 

609  } 

610 

611  char  *  getsupprecstr (long  recno) 

611  { 

612  /* 

613  *  AR6UMEN': 

614  *  (long)  recno  -  material  supply  record  number  (returned  by  LKU  fn) 

615  * 

616  *  DESCRIPTION 

617  *  Ta)tes  supply  record  number  and  gets  the  specified  record  in  string  form 

618  * 

619  *  RETURNS 

620  *  (char  *)  string  representation  of  material  supply  record 

621  * 

622  * 

623  *  DATABASES  AFFECTED  (whether  direct  or  .  ndlrect) 

624  *  matsup  dbf  (no  index  used) 

625  * 

626  */ 

627 

628  static  char  str[80); 

629  MATSUPREC  *  msuprec; 

630 

631  msuprac  -  GetSuppRec (recno) ; 

632  strcpy(str,  "") ; 

633  sprintf(str,  "%5.51d  %20.20s  %7.7s  %3.33  ”, 

634  mauprec->matid, 

635  msuprec->matdesc. 
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636  "  ", 

637  msuprec->unit) ; 

638  f ree ( (MATSUPREC  *)  msuprec) ; 

639  return  (str) ; 

640  } 

641 

642  char  getavailstatof sel <LBOXSTA  *  Iboxptr) 

642  { 

643  /* 

644  *  ARGUMENT 

645  *  (LBOXSTA  *)  Iboxptr  -  pointer  to  list  box  structure  of  conflict  list 

646  * 

647  *  DESCRIPTION 

648  *  Uses  pointer  in  list  box  structure  to  access  the  availability  status 

649  *  code  resident  in  the  corresponding  material  resource  requirement  node 

650  *  in  the  resource  availability  analysis  list 

651  • 

652  *  RETURNS 

653  *  (char)  availability  status  code  (e.g.  (M) issing, (I) nadauate, (0) verride) 

654  » 

655  */ 

656 

657  return  (*  ( {lboxptr->selectitem->listitem)  +  LBOXSTRLEN) ) ; 

658 

659  } 

660 

661  void  setovrdflag (LBOXSTA  *  Iboxptr) 

661  ( 

662  /* 

663  *  ARGUMENT 

664  *  (LBOXSTA  *)  Iboxptr  -  pointer  to  list  box  structure  of  conflict  list 

665  * 

666  »  DESCRIPTION 

667  •  Uses  pointer  in  list  box  structure  to  set  override  flag 

668  •  resident  in  the  corresponding  material  resource  requirement  node 

669  *  in  the  resource  availability  analysis  list 

670  * 

671  *  RETURNS 

672  * 

673  •/ 

674 

675  ( (REQLSTNODE  •)  ( (lboxptr->selectitem->listitem)  -  sireof  (char)  -  sizeof  (long) ) ) ->ovrd  - 

TRUE; 

676  ) 

677 

678  void  recordsub (LBOXSTA  *  Iboxptr  float  qty,  long  recno) 

678  t 

679  /* 

680  *  ARGUMENT 

681  *  (LBOXSTA  *)  Iboxptr  -  pointer  to  list  box  structure  of  conflict  list 

68"  *  (float)  qty  -  substitution  qty 

683  *  (long)  recno  -  substitution  record  numoer 

J8-*  * 

635  *  DESCRIPTION 

686  *  Uses  pointer  in  list  box  structure  to  record  the  material  substitution 

687  *  using  tl.e  appropriate  fields-  (l.e.  resrecno,  resqty) 

688  *  resident  in  the  corresponding  material  resource  requirement  node 

689  *  in  the  resource  availability  analysis  list 

690  • 

691  *  RETURNS 

692  * 

693  */ 

694 

695  ((REQLSTNODE  *)  ( (lboxptr->selectitem->listitem)  -  sizeof  (char)  -  sizeof  (long) ) ) ->resrecn 

o  -  recno; 

696  ((REQLSTNODE  *)  ( (lboxptr->selectitem->listitem)  -  sizeof  (char)  -  sizeof  (long) ) ) ->resqty 

-  qty; 

697  return; 

698  ) 

699 

700  char  *  getconfstat (LBOXSTA  *  Iboxptr) 

700  { 

701  /* 

702  *  ARGUMENT 
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703  *  (LBOXSTA  *)  Iboxptr  -  pointer  to  list  box  structure  of  conflict  list 

704  » 

705  *  DESCRIPTION 

706  *  Retrieves  and  decodes  the  conflict  status  of  a  material  requirement 

707  * 

708  •  RETURNS 

709  »  (char  *)  conflict  status  explainatlon  string 

710  * 

711  */ 

712 

713  static  char  confstat [30] ; 

714 

715  switch  (getavailstatofsel (Iboxptr) ) 

715  { 

716  case  ('I')  :  strcpy (confstat,  "Inadequate  supply"); 

717  break; 

718  case  ('O')  :  strcpy  (confstat,  "priority  override  possible"); 

719  break; 

720  case  ('M')  :  strcpy (confstat,  "mat  not  found  in  AB  supply"); 

721  break; 

722  default  :  strcpy  (confstat,  "invalid  status"); 

723  ) 

724  return  (confstat); 

725  ) 

726 

727  void  dsplyconfstat (LBOXSTA  *  Iboxptr) 

727  ( 

728  /* 

729  *  ARGUMENT 

730  *  (LBOXSTA  •)  Iboxptr  -  pointer  to  list  box  structure  of  conflict  iist 

731  * 

732  *  DESCRIPTION 

733  *  Displays  the  conflict  status  explainatlon  string  in  the  COMPROMISE 

734  *  environment  window 

735  • 

736  *  RETURNS 

737  * 

738  */ 

739 

740  vratputf (CompWin,  8,  46,  HELP,  "  %-26.26s  ",  getconfstat (Iboxptr )) ; 

741 

742  ) 

743 

744  int  isoverrideposs (LBOXSTA  *  Iboxptr) 

744  { 

745  /* 

746  *  ARGUMENT 

747  •  (LBOXSTA  *)  Iboxptr  -  pointer  to  list  box  structure  of  conflict  list 

748  • 

749  •  DESCRIPTION 

750  *  Checks  to  see  if  a  priority  override  has  been  designated  for  the 

751  *  selected  material  conflict 

752  * 

753  *  RETURNS 

754  *  (int)  TRUE  or  FALSE 

755  * 

756  */ 

757 

758  if  (getavailstatofsel (Iboxptr)  —  'O') 

759  return  (TRUE) ; 

760  else 

761  return  (FALSE) ; 

762  ) 

763 

764 

765  void  setupwinformat (void) 

765  { 

766  /* 

767  *  ARGUMENT 

768  * 

769  *  DESCRIPTION 

770  *  Sets  up  the  COMPROMISE  environment  window  format 

771  * 

772  •  RETURNS 
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773  • 

774  */ 

775 

776  Int  1; 

in 

778  vatpsd,  35,  "  Conflicting  mat  requirements 

779  vatps(15,  2,  "  AB  material  supply  "J ; 

780  vatps(7,  37,  "CONFLICT  ") ; 

781  vatps{8,  37,  "STATUS  ;  ") ; 

782  vratputf  (CompWin,  8,  47,  HELP,  "  %-26.26s  ",  "  "); 

783  /*  setup  selection  display  section  */ 

784  vatpsdO,  36,  "Selected  conflict"); 

785  vratputf (CompWin,  11,  36,  HELP,  "  %-38.38s  ",  "  "); 

786  vatps{12,  36,  "Selected  substitution"); 

787  vratputf (CompWin,  13,  36,  HELP,  "  %-38.38s  ",  "  ") ; 

788  vatpsdS,  60,  "INSTRUCTIONS:  "); 

789  for  (i  -  0;  i  <-  5;  i++) 

790  vatpasd6  +  1,  60,  HELP,  "  "); 

791  return; 

792  ) 

793 

794 

795 

796  void  hilltednt  item) 

796  ( 

797  /* 

798  *  ARGUMENT 

799  *  (int)  item  -  mneumonic  constant  corresponding  to  a  COMPROMISE 

800  *  environment  window  item 

801  * 

802  *  DESCRIPTION 

803  *  Hilltes  the  specified  item  on  the  screen 

804  * 

805  *  RETURNS 

806  * 

807  */ 

808  switch  (item) 

808  { 

809  case  (CONFSTAT)  : 

810  /*  hilite  "CONFLICT"  ,  hillte  "STATUS  ;"  */ 

811  modattr (CompWin,  7,  37,  8,  HILITE); 

812  modattr (CompWin,  8,  37,  8,  HILITE); 

813  brea)c; 

814  case  (SELTCONF)  ! 

815  /*  hilite  "Selected  conflict"  */ 

816  modattr (CompWin,  10,  35,  18,  HILITE); 

817  )3rea)c; 

818  case  (SELTSUB)  : 

819  /*  hilite  "Selected  substitution"  */ 

820  modattr (CompWin,  12,  36,  21,  HILITE); 

821  brea)i; 

822  case  (CURSTAT)  : 

823  /*  hilite  "Current  status"  •/ 

824  modattr (CompWin,  10,  2,  14,  HILITE); 

825  brea](; 

826  case  (INSTRCT)  : 

827  /*  hilite  "Instruction:"  */ 

828  modattr (CompWin,  15,  60,  14,  HILITE); 

829  break; 

830  default  :; 

831  ) 

832  return; 

833  ) 

834 

835 

836 

837  void  unhilitednt  item) 

837  { 

838  /* 

839  *  ARGUMENT 

840  *  (int)  item  -  mneumonic  constant  corresponding  to  a  COMPROMISE 

841  *  environment  window  item 

842  * 

843  *  DESCRIPTION 
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844  *  Unhilltes  the  specified  Item  on  the  screen 

845  » 

846  •  RETURNS 

847  * 

848  */ 

849  switch  (item) 

849  { 

850  case  (CONFSTAT)  : 

851  /*  unhlllte  "CONFLICT"  ,  hllite  "STATUS  •/ 

852  modattr (CompWin,  7,  37,  8,  CURRENT); 

853  modattr (CompWin,  8,  37,  8,  CURRENT); 

654  break; 

855  case  (SELTCONF)  : 

856  /*  unhilite  "Selected  conflict"  */ 

857  modattr (CompWin,  10,  35,  18,  CURRENT); 

858  brea)i; 

859  case  (SELTSUB)  ; 

860  /*  unhilite  "Selected  substitution"  */ 

861  modattr (CompWin,  12,  36,  21,  CURRENT); 

862  brea)c; 

863  case  (CURSTAT)  : 

864  /*  unhilite  "Current  status"  */ 

865  modattr (CompWin,  10,  2,  14,  CURRENT); 

866  break; 

867  case  (INSTRCT)  : 

868  /*  unhilite  "Instruction:"  */ 

869  modattr (CompWin,  15,  60,  14,  CURRENT); 

870  break; 

871  default  ;; 

872  ) 

873  return; 

874  ) 

875 

876 

877 

878  void  ctrlpassdnt  from,  Int  to) 

878  { 

879  /* 

880  *  ARGUMENT 

881  *  (int)  from  -  current  control  point 

882  •  (int)  to  -  next  control  point 

863  • 

884  "  DESCRIPTION 

885  *  Coordinates  screen  control  of  the  COMPROMISE  envrionmant  between 

886  *  the  different  control  points 

887  * 

888  *  RETURNS 

889  * 

890  */ 

891 

892  switch  (from) 

892  { 

893  case  (CONFSEL)  : 

894  /*  unselect  "Conflicting  mat  requirements"  */ 

895  vatputs (CompWin,  1,  35,  "  "); 

896  modattr (CompWin,  1,  35,  32,  CURRENT); 

897  break; 

896 

899  case  (SUPPSEL)  : 

900  /*  unselect  "AB  material  supply"  */ 

901  vatputs (CompWin,  15,  2,  "  "); 

902  modattr (CompWin,  15,  4,  20,  CURRENT); 

903  break; 

904  case  (SELTQTY)  : 

905  /*  unselect  "Selected  substitution"  */ 

906  vatputs (CompWin,  13,  33,  "  "); 

907  modattr (CompWin,  12,  36,  21,  CURRENT); 

908  break; 

909  case  (NOSELCT)  : 

910  default 

911  ) 

912  switch  (to) 

912  ( 

913  case  (CONFSEL)  : 
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914 

/*  select  "Conflicting  material 

requirements"  */ 

915 

vratputf (CompWin, 

1, 

35, 

SELBLINK,  ' 

") ; 

916 

modattr (CompWin, 

1,  37,  30,  SELNORM) 

0 

917 

vloc (KeymapBar,  0 

,  0) 

r 

918 

vratputs (CompWin, 

16, 

60, 

HELP, 

•1 

'■)  ; 

919 

vratputs (CompWin, 

17, 

60, 

HELP, 

"  > 

Select  a 

")  ; 

920 

vratputs (CompWin, 

18, 

60, 

HELP, 

n 

material 

")  ; 

921 

vratputs (CompWin, 

19, 

60, 

HELP, 

ft 

conflict  to 

"); 

922 

vratputs (CompWin, 

20, 

60, 

HELP, 

ft 

resolve 

923 

vratputs (CompWin, 

21, 

60, 

HELP, 

fp 

924 

break; 

925 

case  (SUPPSEL)  : 

926 

/*  select  "AB  material  supply" 

*/ 

927 

vratputf (CompWin, 

IS. 

2, 

SELBLINK,  " 

"); 

928 

modattr (CompWin, 

15, 

4,  20,  SELNORM) 

/ 

929 

vloc (KeymapBar,  1 

,  0) 

} 

930 

vratputs (CompWin, 

16, 

60, 

HELP, 

It 

")  ; 

931 

vratputs (CompWin, 

17, 

60, 

HELP, 

«  > 

Select  a 

"); 

932 

vratputs (CompWin, 

18, 

60, 

HELP, 

It 

substitute 

"); 

933 

vratputs (CompWin, 

19, 

60, 

HELP, 

•1 

material 

"); 

934 

vratputs (CompWin, 

20, 

60, 

HELP, 

n 

; 

935 

vratputs (CompWin, 

21, 

60, 

HELP, 

ti 

"); 

936 

break; 

937 

case  (SELTQTY)  ; 

938 

/*  unselect  "Selected 

substitution" 

*/ 

939 

vratputf (CompWin, 

13, 

33, 

SELBLINK, 

"  "); 

940 

vloc (KeymapBar,  2 

,  0) 

i 

941 

vratputs (CompWin, 

16, 

60, 

HELP, 

n 

"); 

942 

vratputs (CompWin, 

17, 

60, 

HELP, 

w  > 

Select  qty 

"); 

943 

vratputs (CompWin, 

18, 

60, 

HELP, 

It 

to 

"); 

944 

vratputs (CompWin, 

19, 

60, 

HELP, 

It 

substitute 

"); 

945 

vratputs (CompWin, 

20, 

60, 

HELP, 

It 

")  ; 

946 

vratputs (CompWin, 

21, 

60, 

HELP, 

It 

"); 

947 

break; 

948 

case  (NOSELCT)  : 

949 

vratputs (CompWin, 

16, 

60, 

KELP, 

ft 

"); 

950 

vratputs (CompWin, 

17, 

60, 

HELP, 

It 

"); 

951 

vratputs (CompWin, 

18, 

60, 

HELP, 

« 

952 

vratputs (CompWin, 

19, 

60, 

HELP, 

n 

953 

vratputs (CompWin, 

20, 

60, 

HELP, 

It 

”); 

954 

vratputs (CompWin, 

21, 

60, 

HELP, 

II 

955 

default  :; 

956 

) 

957 

958  ) 

959 

return; 

960  void  updtcompstatus  (LISTITEM  *  conf  Iboxlst.) 

960  { 

961  /* 

962  *  ARGUMENT 

963  *  (LISTITEM  *)  conflboxlst  -  pointer  to  conflict  list  box  list 

964  * 

965  *  DESCRIPTION 

966  *  Updates  the  COMPROMISE  status  by  checking  the  current  number  of 

967  *  material  conflicts  remaining  and  displaying  the  new  status  on  the 

968  •  COMPROMISE  environment  window 

969  * 

970  *  RETURNS 

971  * 

972  */ 

973 

974  vratputf {CompWin,  11,  2,  REVHIGHHELP,  "  %d  ",  listcnt (conf Iboxlst) ) ; 

975 

976  ) 

977 

978  float  getqty (void) 

978  { 

979  /* 

980  *  ARGUMENT 

981  * 

982  •  DESCRIPTION 

983  *  Gets  the  substitution  qty  from  the  user 

984  • 

985  •  RETURNS 
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986 

907 

988 

989 

990 

991 

992 

993 

994 

995 

996 

997 

998 

999 
1000 
1001 
1002 
1003 

1003 

1004 

1005 

1006 
1006 

1007 

1008 
1009 

1009 

1010 
1011 
1012 

1013 

1014 

1015 

1016 

1017 

1018 

1019 
loi: 

1020 
1021 
1022 

1023 

1024 

1025 

1026 

1027 

1028 

1029 

1030 

1031 

1032 

1033 

1034 

1035 

1036 

1036 

1037 

1038 

1039 

1040 

1041 

1042 

1043 

1044 

1045 

1046 

1047 

1047 

1048 

1049 

1050 

1051 

1052 

1053 


(float)  n  -  qty  selected 

CANCEL_SEL  -  if  ESC  hit 
ABORT  SEL  -  if  F3  hit 


unsigned  int  key; 

int  decpnt found,  cnt,  digafterdecpnt,  done; 
char  str[10]; 

vratputf (CompWin,  13,  64,  SELQTYBLINK,  "%7.7s",  "  ?  ");/*  prompt  for  qty 

for  (cnt  "  0, 

decpntfound  -  FALSE, 
digafterdecpnt  -  0, 
done  -  FALSE, 
str[0J  -  '\0', 
key  «  getkeyO; 

(!  done);) 

{ 

if  (cnt  "  0) 

vratputf (CompWin,  13,  64,  SELQTY,  "%7.7s",  "  ");/*  clear  qty  space 

switch  (key) 

{ 

case  (ESC)  :  return  ((float)  CANCEL_SEL) ; /*  ESC  hit  (cancel  compromise) 
case  (F3)  ;  return  ((float)  ABORTSUB_SEL) ; / •  F3  hit  (abort  substitution) 
case  (BKSP)  ;  if  (cnt  >  0) 

( 

cnt  — ; 

str(cnt)  -  '\0'; 

vratputf (CompWin,  13,  64  +  cnt,  SELQTY,  "%c",  '  '); 
if  (decpntfound  it  (digafterdecpnt  —  D) 
digafterdecpnt  -  0; 

else  if  (decpntfound  a  (digafterdecpnt  -•  0) ) 
decpntfound  -  FALSE; 

} 

break; 

case  (ENTR)  ;  if  (strCOJ  I-  '\0') 

{ 

done  »  TRUE; 
dmpxtrakeys  0 ; 

) 

else 

/*  prompt  for  qty  again  */ 

vratputf (CompWin,  13,  64,  SELQTYBLINK,  "%7.7s",  "  ?  ")  ; 

break; 

case  ('0')  ! 
case  ('!')  : 
case  ( ' 2 ' )  : 
case  ('3')  ; 
case  ('4')  : 
case  ('5')  ! 
case  ('€')  : 
case  ('7')  ; 
case  ('8')  ; 

case  ('9')  :  if  ((cnt  <-  6)  ti  (digafterdecpnt  !-  1)) 

( 

str[cnt]  -  key; 

8tr[cnt  +  1]  «  '\0'; 

vratputf (CompWin,  13,  64  +  cnt,  SELQTY,  "%c",  key); 
cnt++; 

if  (decpntfound) 

digafterdecpnt  -  1; 

) 

else 

vbeep ( ) ; 
break; 

case  {'.')  !  if  ((cnt  <-  6)  ££  (’  decpntfound)) 

< 

decpntfound  -  TRUE; 

St r [cnt]  -  key; 
str(cnt  +  1]  -  '\0'; 

vratputf  (CompWin,  13,  64  +  cnt,  SELQTY,  "%c’',  key)  ; 
cnt++; 

} 


*/ 


*/ 


•/ 

*/ 
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1054  else 

1055  vbeepO; 

1056  break; 

1057  default  ;  vbeepO;  /•  INVALID  keystroke  »/ 

1058  ) 

1059  if  (I  done) 

1060  key  “  getkeyO; 

1061  ) 

1062  vratputf (CompWin,  13,  64,  HELP,  "%7,7s",  str) ; 

1063 

1064  return  (atof  (str) ) ; 

1065  } 

1066 

1067  Int  asktoacceptoverrlde (void) 

1067  { 

1068  I* 

1069  *  ARGUMENT 

1070  * 

1071  * 

^J72  *  DESCRIPTION 

1073  *  Asks  the  user  if  override  should  joe  accepted 

1074  * 

1075  *  RETURNS 

1076  * 

1077  * 

1078  *  DATABASES  AFFECTED  (whether  direct  or  indirect) 

1079  * 

1080  */ 

1081 

1082  HWND  win; 

1083  unsigned  int  key; 

1084 

1085  win  •  dsplymessbox 0 ; 

1086  vratputs (win,  1,  0,  GRYBTXT,  "  ****  PRIORITY  OVERRIDE  ***•  ") ; 

1087  vratputs (win,  3,  0,  GRYBTXT,  "  possible’  "); 

1088  vratputs  (win,  7,  0,  KEYMESS,  "  Accept  override  (Y) :  7  "); 

1089  modattr(win,  7,  24,  3,  FLSHCHR) ; 

1090  while  (1) 

1090  ( 

1091  key  »  getkeyO; 

1092  switch  (key) 

1092  ( 

1093  case  ('Y')  ; 

1094  case  ('y')  : 

1095  case  (ENTR)  :  vratputs  (win,  7,  24,  HELP,  "  Y  "); 

1096  delay (2); 

1097  delmessbox (win) ; 

1098  dmpxtrakeys () ; 

1099  return  (TRUE) ; 

1100  case  ('N')  : 

1101  case  ('n')  :  vratputs (win,  7,  24,  HELP,  "  N  "); 

1102  del=«y!2;; 

1103  deltnessbox  (win) ; 

1104  dmpxtrakeys () ; 

1105  return  (FALSE); 

1106  default  :  vbeepO;  /*  INVALID  keystroke  */ 

1107  ) 

1108  > 

1109  ) 

1110 

1111  void  delay (int  sec) 

1111  ( 

1112  /* 

1113  *  ARGUMENT 

1114  * 

1115  * 

1116  *  DESCRIPTION 

1117  •  Implements  a  delay  with  1:1  second  correspondence  on  25MHz  386 

1118  * 

1119  *  RETURNS 

1120  • 

1121  * 

1122  *  DATABASES  AFFECTED  (whether  direct  or  Indirect) 

1123  * 
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1124  */ 

1125 

1126  long  cnt,  time; 

1127 

1128  time  «  sec; 

1129  for  (time  -  0;  time  <  sec;  tlme++) 

1129  { 

1130  for  (cnt  -  300000L;  cnt  >  0;  cnt — ) ; 

1131  ) 

1132  ) 

1133 

1134  int  verifyabort (void) 

1134  { 

1135  /* 

1136  *  ARGUMENT 

1137  * 

1138  * 

1139  *  DESCRIPTION 

1140  *  Asks  user  to  verify  abort  selection 

1141  * 

1142  *  RETURNS 

1143  * 

1144  * 

1145  *  DATABASES  AFFECTED  (whether  direct  or  indirect) 

1146  * 

1147  *J 

1148 

1149  HWND  win; 

1150  unsigned  int  key; 

1151 

1152  win  -  dsplymessbox () ; 

1153  vratputs (win,  0,  0,  GRYBTXT,  " 

1154 

1155  vratputs (win,  1,  0,  GRYBTXT,  "  **  CANCEL  COMPROMISE  **  "); 

1156  modattr(win,  1,  2,  2,  SELQTYBLINK) ; 

1157  modattr(win,  1,  26,  2,  SELQTYBLINK); 

1158  vratputs  (win,  2,  0,  GRYBTXT,  "  "); 

1159  vratputs (win,  3,  0,  GRYBTXT,  "  chosen!  ") ; 

1160  vratputs (win,  4,  0,  GRYBTXT,  "  "); 

1161  vratputs (win,  7,  0,  KEYMESS,  "  Are  you  sure  (N) :  ?  "); 

1162  modattr(win,  7,  23,  3,  FLSHCHR) ; 

1163  while  (1) 

1163  ( 

1164  key  »  getkeyO; 

1165  switch  (key) 

1165  { 

1166  case  ('N')  ; 

1167  case  ('n')  ; 

1168  case  (ENTR)  :  vratputs (win,  7,  23,  HELP,  "  N  "); 

1169  delay (2); 

1170  vdelete(win,  NONE); 

1171  vcurrent (CompWin) ; 

1172  dmpxtrakeys () ; 

1173  return  (FALSE) ; 

1174  case  ('Y')  : 

1175  case  <'y')  :  vratputs (win,  7,  23,  HELP,  "  Y  "); 

1176  delay (2); 

1177  vdelete(win,  NONE); 

1178  vcurrent (CompWin) ; 

1179  dmpxtrakeys  0  ; 

1180  return  (TRUE) ; 

1181  default  :  vbeepO;  /*  INVALID  keystroke  */ 

1182  ) 

1183  } 

1184  ) 

1185 

1186  int  chkqtyvssupp (float  qty,  long  recno) 

1186  ( 

1187  /* 

1188  *  ARGUMENT 

1189  * 

1190  * 

1191  *  DESCRIPTION 

1192  *  Checks  to  makes  sure  qty  entered  for  substitution  is  not 
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1193  *  more  than  is  available  in  supply 

1194  * 

1195  *  RETURNS 

1196  * 

1197  * 

1198  *  DATABASES  AFFECTED  (whether  direct  or  indirect) 

1199  * 

1200  */ 

1201 

1202  MATSOPREC  *  msuprec; 

1203 

1204  msuprec  -  GetSuppRec (recno) ; 

1205  if  (msuprec->qty  >-  qty) 

1205  ( 

1206  f ree ( (MATSUPREC  *)  msuprec); 

1207  return  (TRUE)  ; 

1208  ) 

1209  free ( (MATSUPREC  *)  msuprec); 

1210  return  (FALSE) ; 

1211  ) 

1212 

1213  int  asjcifcorrectqty  (void) 

1213  { 

1214  /* 

1215  »  ARGUMENT 

1216  * 

1217  * 

1218  *  DESCRIPTION 

1219  *  Asks  user  if  qty  entered  is  correct 

1220  * 

1221  *  RETURNS 

1222  * 

1223  * 

1224  *  DATABASES  AFFECTED  (whether  direct  or  indirect) 

1225  * 

1226  */ 

1227 

1228  HWND  win; 

1229  unsigned  int  key; 

1230 

1231  win  •  dsplymessboxO  ; 

1232  vratputs  (win,  2,  0,  GRYBTXT,  "  IS  THIS  (JUANTITY  CORRECT  ?  "); 

1233  vratputs (win,  6,  0,  KEYMESS,  "  Please  verify  (Y) :  ?  "); 

1234  modattr(win,  6,  23,  3,  FLSHCHR) ; 

1235  while  (1) 

1235  ( 

1236  key  -  getkeyO; 

1237  switch  (key) 

1237  { 

1238  case  ('Y')  ; 

1239  case  ('y')  ; 

1240  case  (ENTR)  :  vratputs (win,  6,  23,  HELP,  "  Y  "); 

1241  delay (1); 

1242  vdelete(wln,  NONE) ; 

1243  vcurrent (CompWin) ; 

1244  dmpxtrakeys 0 ; 

1245  return  (TRUE) ; 

1246  case  ('N')  : 

1247  case  ('n'j  :  vr»itpLii.s  (wrn,  6,  73,  HELP,  '•  N  ”)  ; 

1248  delay (1); 

1249  vdelete(wtn,  NONE) ; 

1250  vcurrent (CompWin) ; 

1251  dmpxtrakeys 0 ; 

1252  return  (FALSE) ; 

1253  default  :  vbeepO;  /•  INVALID  keystroke  */ 

1254  ) 

1255  } 

1256  ) 

1257 

1258  void  dsplysubaccepted (void) 

1258  ( 

1259  /* 

1260  *  ARGUMENT 

1261  * 
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1262  * 

1263  *  DESCRIPTION 

1264  *  Displays  "substitution  accepted"  box 

1265  * 

1266  *  RETURNS 

1267  * 

1268  * 

1269  *  DATABASES  AFFECTED  {whether  direct  or  indirect) 

1270  * 

1271  */ 

1272 

1273  HWND  win; 

1274 

1275  win  -  dsplymessbox 0 ; 

1276  vratputs (win,  1,  0,  GRYBTXT,  "  ***•  MATERIAL  ****  "); 

1277  vratputs (win,  3,  0,  GRYBTXT,  "  SUBSTITUTION  ") ; 

1278  vratputs (win,  6,  0,  KEYALERT,  "  ACCEPTED  ") ; 

1279  delay (3); 

1280  delmessbox (win) ; 

1281  vcurrent (CompWin)  ; 

1282  ) 

1283 

1284  void  alerttoqtylimit (long  recno) 

1284  { 

1285  /* 

1286  *  ARGUMENT 

1287  * 

1288  * 

1289  *  DESCRIPTION 

1290  *  Displays  supply  qty  limit 

1291  * 

1292  *  RETURNS 

1293  * 

1294  * 

1295  *  DATABASES  AFFECTED  (whether  direct  or  indirect) 

1296  * 

1297  */ 

1298 

1299  HWND  win; 

1300  MATSUPREC  *  msuprec; 

1301 

1302  msuprec  *=  GetSuppRec  (recno)  ; 

1303  win  dsplymessbox  0  ; 

1304  vratputs (win,  1,  0,  GRYBTXT,  "  ****  INVALID  *•**  "); 

1305  vratputs (win,  3,  0,  GRYBTXT,  "  QUANTITY  ENTRY  "); 

1306  vratputf (win,  5,  0,  GRYBTXT,  "  Total  qty  avail:  %7.1f  %3,3s  ",  msuprec->qty,  msuprec->unit) 

*1307  modattr(wln,  5,  18,  11,  KEYMESS) ; 

1308  vratputs  (win,  7,  0,  KEYALERT,  "  <  Press  any  )iey  >  ")  ; 

1309  get)tey(); 

1310  delay  (1); 

1311  dmpxt  raXey s ( ) ; 

1312  delmessbox (win) ; 

1313  free ( (MATSUPREC  *)  msuprec); 

1314  vcurrent (CompWin) ; 

1315  return; 

1316  ) 

1317 
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1  /* 

2  *  dbutil.c 

3  * 

4  *  utility  functions  access  repair  info  in  dbases 

5  */ 

6 

7  tinclude  <stdlib.h> 

8  #include  <string.h> 

9  ♦include  <stdio.h> 

10 

11  tinclude  <d4base.h> 

12  tinclude  <dw.h> 

13 

14  tinclude  "rmrsutil.h” 

15  tinclude  "sysdefs.h" 

16  tinclude  "rmrserr.h" 

17  tinclude  "miscutil . h" 

18 

19 

20  REPDATANODE  *  GetRepData (long  repid) 

20  { 

21  /* 

22  *  ARGUMENT 

23  *  (long)  repid  -  repair  id 

24  * 

25  *  DESCRIPTION 

26  *  Retrieves  repair  data  from  databases  for  use  in  repair  data  bloc)c 

27  * 

28  *  RETURNS 

29  *  (REPDATANODE  *)  pointer  to  structure  containing  the  information 

30  *  needed  for  the  repair  data  block  as  used  in  the  COMPROMISE  mode 

31  * 

32  *  DATABASES  AFFECTED  (whether  direct  or  indirect) 

33  *  repair_dbf  (repair_ndxl  -  REPID  index  )  -  d4seek  used 

34  *  repinfo_dbf  (repinfo  ndxl  -  REPID  index  )  -  d4see)c  used 

35  * 

36  */ 

37 

38  REPDATANODE  *  buffer; 

39 

40  buffer  -  (REPDATANODE  *)  malloc (sireof  (REPDATANODE)); 

41  d4select (repair_dbf ) ; 

42  i4select (repair_ndxl) ; 

43  d4see)c_double  (repid)  / 

44  buffer->repid  «  repid; 

45  buf fer->facnum  -  f41ong (f4ref ("FACNUM") ) ; 

46  buffer->priority  -  f4int (f4ref ("PRIORITY") ) ; 

47 

48  replnfo_dbf  -  d4use_excl ("REPINFO, DBF") ; 

49  d4select (repinfo_dbf) ; 

50  repinfo_ndxl  -  i4open ("REPINDXl .NDX") ; 

51  i4select (repinf o_ndxl) ; 

52  d4see)c_double  (repid)  ; 

53  buffer->elenum  -  f4int (f 4ref ("ELENUM") ) ; 

54  strcpy (buffer->el6descstr,  f4str (f4ref ("ELEDESC") ) ) ; 

55  strcpy (buf fer->dammodestr,  f4str (f4ref ("DAMMODE") )) ; 

56  strcpy (buffer->repstgystr,  ftstr (f4ref ("REPSTGY") ) ) ; 

57  trimstr (buffer->eledescstr) ; 

58  trimstr (buf fer->dammodestr) ; 

59  trimstr {buffer->rep3tgystr) ; 

60 

61  d4 select ( repinf o_dbf) ; 

62  d4close(); 

63  return  (buffer) ; 

64  } 

65 

66  MATSUPREC  *  GetSuppRec (long  recno) 

66  ( 

67  /* 

68  *  ARGUMENT 

69  *  (long)  recno  -  record  number  of  desired  material  supply  record 

70  * 

71  *  DESCRIPTION 

72  *  Retrieves  entire  specified  material  supply  record  from  material 
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73  *  supply  database 

74  * 

75  *  RETURNS 

76  •  (MATSOPREC  *)  pointer  to  structure  containing  the  information 

77  *  from  the  specified  material  supply  record 

78  * 

79  *  DATABASES  AFFECTED  <whether  direct  or  indirect) 

80  *  matsup_dbf  (no  index  used) 

81  • 

82  */ 

83 

84  MATSUPREC  *  buffer; 

85 

86  d4select (matsup_dbf ) ; 

87  if  (d4go (recno) ) 

87  ( 

88  u4error (RECACESERR,  "Record  access  error",  (char  *)  0); 

89  return  ((MATSUPREC  *)  NOLL) ; 

90  ) 

91  buffer  =  (MATSUPREC  *)  malloc (sizeof  (MATSUPREC)); 

92 

93  buffer->matld  -  f 41ong (f4ref ("MATID") ) ; 

94  strcpy (buffer->matdesc,  f4str (f4ref ("MATDESC") ) ) ; 

95  buffer->qty  «  f 4double (f4ref ("QTY") ) ; 

96  strcpy (buffer->unit,  f 4str (f4ref ("UNIT") ) ) ; 

97  return  (buffer) ; 

98  ) 

99 

100  int  GetFacPrty (long  facnum) 

100  ( 

101  /* 

102  *  ARGUMENT 

103  *  (long)  facnum  -  facility  number  designation 

104  * 

105  *  DESCRIPTION 

106  *  Retrieves  AB  assigned  facility  priority  from  AB  specific  facility 

107  *  priority  database 

108  * 

109  *  RETURNS 

110  *  (int)  n  -  facility  priority 

111  *  0  -  if  facility  listing  not  found 

112  * 

113  *  DATABASES  AFFECTED  (whether  direct  or  indirect) 

114  *  facprt  dbf  (facprt_ndxl) 

115  * 

116  */ 

117 

118  int  status,  prty; 

119 

120  /*  fetch  associated  facility  priority  from  FACPRTY.DBF  */ 

121  open_facprt (0) ; 

122  d4select (facprt_dbf ) ; 

123  i4select (facprL_ndxl)  ; 

124  status  -  d4see)t_double  (facnum) ; 

125  prty  -  f4int {f4ref ("PRIORITY") ) ; 

126  d4clo3e(); 

127  if  (!  status) 

128  return  (prty) ; 

129  else 

130  return  (0) ; 

131  ) 
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23 
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27 

28 

29 
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42 


/* 


itemfns.cpp 

This  file  contains  the  functions  that 
menu  bar  pull-down  selections.  These 
below  beside  their  menu  selection; 


are  called  from  the 
functions  are  listed 


System 


Init/Setup  > 


Process 


Schedule 


ChangeStatus 


Gen  Report  > 


About  ...  : 

Proc  info  ...  : 

DOS  shell  : 

Comm  Prog  : 

Quit  : 

Change  def  specs  : 

Load  new  supply  file  > 

Auto  Mode  : 

Single  facility  : 

Compromise  Retry  : 

Cancel  repair  : 

Auto  Mode  ; 

Upgrade  priority  : 

Set  order  : 

Completed  : 

Canceled  : 

Restore  : 

Delete  All  : 

Repair  Schedule  > 

Completed  repairs  : 

Canceled  repairs  : 

Suspended  repairs  : 

Possible  repairs  : 

Allocated  materials  : 

Used  materials  : 

AB  materials  supply  : 
AB  equipment  supply  : 


SystAbotFn  () 

SystInfoFnO 
SystXDOSFnO 
SystCOMMFn  0 
SystQuitFn () 

InitDefsFnO 

AB  mat  supply  file  :  InitMatlFnO 
AB  equip  supply  file  :  InitEquiFnO 
ProcAutoFn () 

ProcFaclFn  0 
ProcCompFn () 

ProcCancFn () 

SchdAutoFn () 

SchdUpgdFn ( ) 

SchdOrdrFn  0 
ChngCompFn ( ) 

ChngCancFn () 

ChngRestFn () 

ChngDelAFn  O 

by  repair  team  :  GnRpSchdTeamFn () 

by  facility  :  GnRpSchdFaclFn () 
GnRpCompFn ( ) 

GnRpCancFn ( ) 

GnRpSuspFn  < ) 

GnRpPossFn  0 
GnRpAMatFn ( ) 

GnRpUMatFnO 
GnRpABMtFn () 

GnRpABEqFn ( ) 


linclude  <stdio.h> 
linclude  <dir.h> 


43  linclude  <stdllb.h> 

44  linclude  <strlng.h> 

45  linclude  "dw.h" 

46  linclude  "dwmenu.h" 

47  linclude  "dwsystem.h" 

48  linclude  "d4base,h" 

49 

50  linclude  "rmrs.h" 

51 

52  extern  void  IntroScreen () ; 

53 

54  HWND  win; 

55 

56  Idefine  ERROREND  -1 

57 


58  int  SystAbotFn (void) 

59  { 

60  IntroScreen 0 ; 

61  return  (0)  ; 

62  ) 

63 

64  int  SystInfoFn (void) 

65  ( 

66  long  i; 

67  HWND  InfoFnWin; 

68  unsigned  short  int  *  screenbucket  -  NULL; 

69  InfoFnWin  =  vcreat(7,  40,  ERR,  VES); 

70  d4close_all(); 

71  vlocate (InfoFnWin,  9,  20); 

72  vframe (InfoFnWin,  ERR,  FRDCUBLE) ; 

73  vshadow (InfoFnWin,  CURRENT,  SHADOWlOO,  BOTTOMRIGHT) ; 

74  vmtitle (InfoFnWin,  _TOP,  CENTERJUST,  ERR,  "  RMRS  Processing  Information  "); 
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75 

76 

77 

78 

79 

80  } 

81 

82  int 

83  ( 


visible (InfoFnWin,  YES.  YES) ; 
for  (i  -  0;  i  <  3200000;  i++) ; 


vdelete (InfoFnWin,  NONE) ; 
return  (0) ; 


SystXDOSFn (void) 


84 

int  curpos; 

85 

HWND  win; 

86 

int  stat; 

87 

88 

win  -  vcreat (21,  78,  REVN 

89 

vlocate (win.  2,  1); 

90 

vframe (win,  REVHIGHNORML, 

91 

vtitle(win,  REVHIGHNORML, 

92 

visible  (win,  YES,  YES)  ; 

93 

94 

95 

stat  -  vredir(ON,  win); 

96 

if  (stat  <  DWSUCCESS) 

97 

( 

98 

printf ("Redirection  Fi 

99 

vdelete (win,  NONE) ; 

100 

) 

101 

else 

102 

( 

103 

vratpsd,  1,  NORML,  " 

104 

curdrag(win,  ON) ; 

105 

vredir (ON,  win)  ; 

106 

system ("command") ; 

107 

) 

108 

vredir (OFF,  win); 

109 

vredir (0,  0); 

110 

vclear (win) ; 

111 

112 

vdelete (win,  NONE) ; 

113 

return  (0) ; 

114  ) 

115 

116  int 

SystQuitFn (void) 

117  ( 

118 

HWND  QuitFnWin; 

119 

char  reply; 

120 

. .  "); 


121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136  ) 

137 


QuitFnWin  -  vcreat(7,  40,  EMPHNORML,  YES) ; 

vlocate (QuitFnWin,  9,  20); 

vframe (QuitFnWin,  EMPHNORML,  FRDOUBLE) ; 

vshadow (QuitFnWin,  CURRENT,  SHADOW75,  BOTTOMRIGHT) ; 

visible (QuitFnWin,  YES,  YES) ; 

vatputs  (QuitFnWin,  3,  2,  "Are  you  sure  you  want  to  quit  (Y/N)  ?")  ; 
if  ({(reply  -  get)cey())  —  'Y')  I  I  (reply  —  'y')) 


d4init_undo () ; 
fcloseall 0  ; 

/*  reset  default  video  mode  */ 
vexit  (0) ; 


vdelete (QuitFnWin,  NONE) ; 
return  (0)  ; 


138  int  InitMatlFn (void) 

139  ( 

140  long  1; 

141  HWND  UserFnWin2; 

142 

143  UserFnWin2  -  vcreat (7,  40,  ERR,  YES)  ; 

144  vlocate (UserFnWin2,  9,  20); 

145  vframe {UserFnWin2,  ERR,  FRDOUBLE); 

146  vshadow (UserFnWin2,  CURRENT,  SHADOWlOO,  BOTTOMRIGHT); 

147  vmtitle (UserFnWin2,  _TOP,  CENTERJUST,  ERR,  "  none  ") ; 

148  visible (UserFnWin2,  YES,  YES) ; 
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149  for  (1  =  0;  i  <  3200000;  1++) ; 

150 

151 

152  vdelete(Use rFnWln2,  NONE); 

153  return  (0) , 

154  ) 

155 

156  int  InitEquiFn <void) 

157  ( 

158  long  i; 

159  HWND  UserFnWin3; 

160 

161  OserFnWlnS  -  vcreat <7,  40,  ERR,  YES) ; 

162  vlocate (UserFnWin3,  9,  20); 

163  vframe(UserFnWin3,  ERR,  FRDOUBLE) ; 

164  vstiadow(0serFnWin3,  CURRENT,  SHADOWlOO,  BOTTOMRIGHT)  ; 

165  vmtitle(UserFnWin3,  TOP,  CENTERJUST,  ERR,  ••  none  ") ; 

166  visible (UserFnWin3,  YES,  YES) ; 

167  for  (i  »  0;  i  <  3200000;  1++) ; 

168 

169 

170  vdelete(UserFnWin3,  NONE); 

171  return  (0) ; 

172  ) 

173 

174 

175  int  ProcAutoFn (void) 

176  ( 

177  int  DoProcessAuto 0 ; 

178  long  i; 

179  short  x; 

180  char  str[6]; 

181  extern  HWND  FlHelpWin; 

182  int  repair_ref; 

183  int  done; 

184  struct  ffbllt  file; 

185 

186  win  “  vcreat  (7,  50,  EMPHNORML,  YES)  ; 

187  vlocate (win,  9,  20); 

188  vfraffie(win,  EMPHNORML,  FRDOUBLE); 

189  vshadow(win,  CURRENT,  SHADOW7S,  BOTTOMRIGHT); 

190  vnititle(win,  TOP,  CENTERJUST,  EMPHNORML,  "  Auto-mode  Repair  Processing  "); 

191  visible (win,  YES,  YES) ; 

192 

193  DoProcessAuto 0  ; 

194 

195  vdelete(win,  NONE); 

196  return  (0)  ; 

197  } 

198 

199  ini.  ProcFaclFn  (void) 

200  ( 

201  char  *  srchfor  -  "*.EQP"; 

202  MENUHDR  *  PDESDirHdr; 

203  LISTITEM  *  file,  *  temp; 

204  HWND  win; 

205  int  num,  row  «  3,  col  -  3; 

206 

207  win  =  vopen(18,  60,  REVNORML,  REVNORML,  FRDOUBLE,  "<  PDES  flies  remaining  to  be  processed  > 

208  vatputs(win,  2,  3,  "Select  facility"); 

209  vatputs(win,  3,  3,  "  to  process  -»"); 

210  vatputs(win,  16,  3,  "Ctrl-Enter  to  end  selection."); 

211  pclrattr (NORML) ; 

212  pclrchar ( (char)  OxbO); 

213  sclearO; 

214  PDESDirHdr  =  MNUCreateHdr (POPUP) ; 

215  PDESDirHdr->toprow  *  3; 

216  PDESDirHdr->topcol  -  30; 

217  PDLGD) rHdr->maxraws  »  9; 

218  num  -  MNUSelectFiles (PDESDirHdr,  srchfor,  «.  file); 

219  vclear (win) ; 

220  vatputf(win,  1,  3,  items  selected",  num); 

221  if  (num) 
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221  ( 

222  temp  »  file; 

223  do 

223  { 

224  vatputs (win,  row,  col,  temp->listitem) ; 

225  if  (row++  >  17) 

225  ( 

226  row  “  3; 

227  col  +•=  15; 

228  ) 

229  temp  -  tenip->lnext; 

230  ) 

230  while  (temp  file)  ; 

231  } 

232  vatputs (win,  15,  3,  "Hit  any  key  to  exit  to  main  menu.  ") ; 

233  get)cey(); 

234  MNUDeleteMenu (PDESDirHdr) ; 

235  vdelete(win,  NONE) ; 

236  return  (1); 

237  J 

238 

239 

240  int  ProcCompFn (void) 

241  ( 

242  long  1; 

243  HWND  UserFnWin6; 

244 

245  UserFnWine  «  vcreat  (7,  40,  ERR,  YES) ; 

246  vlocate (UserFnWin6,  9,  20); 

247  vfrarae(UsarFnWin6,  ERR,  FRDOUBLE) ; 

248  vshadow<0serFnWin6,  CURRENT,  SHADOWlOO,  BOTTOMRIGHT) ; 

249  vmtitle (UserFnWine,  _T0P,  CENTERJOST,  ERR,  "  none  ") ; 

250  visible (UserFnWine,  YES,  YES) ; 

251  for  (i  -  0;  i  <  3200000;  1++) ; 

252 

253 

254  vdelete (UserFnWine,  NONE); 

255  return  (0); 

256  ) 

257 

256  int  ProcCancFn (void) 

259  ( 

260  long  1; 

261  HWND  UserFnWin7; 

262 

263  UserFnWin7  -  vcreat (7,  40,  ERR,  YES); 

264  vlocate (UserFnWin7,  9,  20); 

265  vframe(UserFnWin7,  ERR,  FRDOUBLE); 

266  vshadow(U3erFnWln7,  CURRENT,  SHADOWlOO,  BOTTOMRIGHT); 

267  vmtitle (UserFnWln7,  _TOP,  CENTERJUST,  ERR,  "  none  ") ; 

268  visible (03erFnWin7,  YES,  YES) ; 

269  for  (1  -  0;  i  <  3200000;  1++) ; 

270 

271 

272  vdelete {UserFnWin7,  NONE); 

273  return  (0) ; 

274  > 

275 

276  int  SchdFullFn (void) 

277  ( 

278  SchedAuto (1)  ; 

279  return  (0) ; 

280  } 

281 

282  int  SchdIncFn  (voi^U 

283  { 

284  SchedAuto (0)  ; 

285  return  (0)  ; 

286  ) 

287 

288  int  SchdPriorFn (void) 

289  { 

290  HWND  InfoFnWin; 

291  unsigned  short  int  *  screenbuc)tet  ”  NULL; 
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292  int  curpos; 

293  screenbucket  -  SaveScreen (screenbucket,  &  curpos); 

294  pcuronO; 

295  open_repair  !1) ; 

296  b4browse (b4quick_browse,  b4quick_edit) ; 

297  d4close(); 

298  pcuroffO; 

299  RestoreScreen (screenbucket,  i  curpos); 

300  free (screenbucket) ; 

301  return  (0); 

302  ) 

303 

304  int  ChngCompFn (void) 

305  ( 

306  long  i; 

307  HWND  UserFnWinll; 

308 

309  UserFnWinll  -  vcreat(7,  >0,  ERR,  YES); 

310  vlocate (UserFnWinll,  9,  20); 

311  vframe (UserFnWinll,  ERR,  FRDOUBLE); 

312  vshadow( UserFnWinll,  CURRENT,  SHADOWlOO,  BOTTOMRIGHT) ; 

313  vmtitle (UserFnWinll,  _TOP,  CENTERJUST,  ERR,  "  none  "); 

314  visible (UserFnWinll,  YES,  YES) ; 

315  for  (1  -  0;  1  <  3200000;  1++)  ; 

316 

317 

318  vdelete(OserrnWinll,  NONE) ; 

319  return  (0) ; 

320  ) 

321 

322  int  ChngCancFn (void) 

323  { 

324  long  1; 

325  HWND  UserFnWinl2; 

326 

327  UserFnWinl2  «  vcreat(7,  40,  ERR,  YES) ; 

328  vlocate (UserFnWinl2,  9,  20); 

329  vfraiiie(UserFnWinl2,  ERR,  FRDOUBLE); 

330  vshadow(UserFnWinl2,  CURRENT,  SHADOWlOO,  BOTTOMRIGHT); 

331  v»ititle(UserFnWinl2,  TOP,  CENTERJUST,  ERR,  "  none  "); 

332  visible (UserFnWinl2,  YES,  YES); 

333  for  (i  -  0;  i  <  3200000;  i++) ; 

334 

335 

336  vdelete (UserFnWinl2,  NONE); 

337  return  (0); 

338  ) 

339 

340  int  ChngRestFn (void) 

341  { 

342  long  1; 

343  HWND  UserFnWinll; 

344 

345  UserFnWinll  -  vcreat(7,  40,  ERR,  YES) ; 

346  vlocate (UserFnWinll,  9,  20); 

347  vframe(UserFnWlnl3,  ERR,  FRDOUBLE); 

348  vshadow(UserFnWinl3,  CURRENT,  SHADOWlOO,  BOTTOMRIGHT); 

349  vratitle (UserFnWinll,  _TOP,  CENTERJUST,  ERR,  "  none  "); 

350  visible (UserFnWinll,  YES,  YES); 

351  for  (1  -  0;  1  <  3200000;  i++); 

352 

353 

354  vdelete (UserFnWinll,  NONE); 

355  return  (0)  ; 

356  ) 

357 

358  int  ChngDelAFn (void) 

359  ( 

360  long  1; 

361  HWND  0serFnWinl4; 

362 

363  UserFnWinl4  -  vcreat(7,  40,  ERR,  YES) ; 

364  vlocate (UserFnWinl4,  9,  20); 

365  vframe(UserFnWlnl4,  ERR,  FRDOUBLE); 
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366  vshadow<UserFnWinl4,  CURRENT,  SHADOWlOO,  BOTTOMRIGHT) ; 

367  vmtltle {UserFnWinl4,  _TOP,  CENTERJOST,  ERR,  "  none  "); 

368  visible (OserFnWlnl4,  YES,  YES) ; 

369  for  (1  “  0;  i  <  3200000;  i++) ; 

370 

371 

372  vdelete <UserFnWinl4,  NONE); 

373  return  <0)  ; 

374  } 

375 

376 

377  int  EdFlsRepFn (void) 

378  { 

379  unsigned  short  int  *  screenbuc)cet  ■■  NOLL; 

380  int  curpos; 

381  screenbucket  »  SaveScreen  (3creenbuc)c.et,  &  curpos); 

382  pcuronO; 

383  open_repai r ( 1 ) ; 

384  b4browse  (b4quic)c_browse,  b4quic)c_edit) ; 

385  d4close(); 

386  pcuroffO; 

387  RestoreScreen (screenbuc)cet,  &  curpos); 

388  free  (screenbuc)iet)  ; 

389  return  (0) ; 

390  ] 

391 

392  int  EdFisEqSupFn (void) 

393  { 

394  unsigned  short  int  *  screenbuc)cet  -  NULL; 

395  int  curpos; 

396  3ereenbuc)cet  >■  SaveScreen <screenbuc)cet,  t  curpos); 

397  pcuronO; 

398  open_eqpsup <1) ; 

399  b4brow3e  (b4quic)c_browse,  b4qulc)c_edit)  ; 

400  d4close(); 

401  peuroffO; 

402  RestoreScreen  (screenbuc)cet,  i  curpos); 

403  f  ree  (screenbuclcet) ; 

404  return  (0) ; 

405  } 

406  int  EdFlsEqReqFn (void) 

407  ( 

408  unsigned  short  int  *  screenbucket  «  NOLL; 

409  int  curpos; 

410  screenbucket  -  SaveScreen (screenbucket,  (  curpos); 

411  pcuronO; 

412  open_eqpreq(l)  ; 

413  b4browse (b4quick_browse,  b4quick_edit) ; 

414  d4close(); 

415  pcuroffO; 

416  RestoreScreen (screenbucket,  (  curpos); 

417  free (screenbucket ) ; 

418  return  (0); 

419  ) 

420  int  EdFlsMaSupFn (void) 

421  < 

422  unsigned  short  int  *  screenbucket  -  NOLL; 

423  int  curpos; 

424  screenbucket  -  SaveScreen (screenbucket,  &  curpos); 

425  pcuronO; 

426  open_mat  sup ( 1 ) ; 

427  b4bro«se (b4quick_browse,  b4quick_edit) ; 

428  d4ulose(); 

429  pcuroffi); 

430  RestoreScreen (screenbucket,  t  curpos); 

431  free (screenbucket) ; 

432  return  (0) ; 

433  ) 

434 

435  int  EdFlsMaReqFn(void) 

436  ( 

437  unsigned  short  int  *  screenbucket  -  NULL; 

438  int  curpos; 

439  screenbucket  ■=  SaveScreen (screenbucket,  &  curpos); 
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441  open_matreq (1) ; 

442  b4browse (b4qulck_browse,  b4quick_edit) ; 

443  d4close(); 

444  pcuroffO; 

445  RestoreScreen (screenbucket,  (  curpos) ; 

446  free (screenbucket) ; 

447  return  (0) ; 

446  ) 

449 

450  int  EdFlsRepInfoFn (void) 

451  ( 

452  unsigned  short  int  *  screenbucket  NOLL; 

453  int  curpos; 

454  screenbucket  -  SaveScreen (screenbucket,  &  curpos); 

455  pcuronO; 

456  open_repinfo (1)  ; 

457  b4browse {b4quick_browse,  b4qulck_edlt) ; 

458  d4close(); 

459  pcuroffO; 

460  RestoreScreen (screenbucket,  i  curpos); 

461  free (screenbucket) ; 

462  return  (0)  ; 

463  ) 

464 

465  int  EdFlsFacPrtyFn (void) 

466  ( 

467  unsigned  short  int  *  screenbucket  NOLL; 

468  int  curpos; 

469  screenbucket  -  SaveScreen (screenbucket,  &  curpos); 

470  pcuronO; 

471  open_facprt (1) ; 

472  b4browse (b4quick_browse,  b4quick_edit) ; 

473  d4close();  ~ 

474  pcuroff(); 

475  RestoreScreen (screenbucket,  (  curpos); 

476  free (screenbucket) ; 

477  return  (0); 

478  ) 

479 

480  int  EdFlsResetFn (void) 

481  { 

482  HWNO  win; 

463 

484  /*  WINDOW  STUFF  */ 

485  win  -  vcreat(7,  40,  EMPHNORML,  YES) ; 

486  vautoshd{win,  CURRENT,  SHAD0W75,  BOTTOMRIGHT) ; 

487  vmtitle(win,  _T0P,  CENTERJOST,  EMPHNORML,  "  Data  Reset  ") 

486  vlocate(wln,  9,  20); 

489  vframe(win,  EMPHNORML,  FRDOUBLE); 

490  visible (win,  YES,  YES); 

491 

492  vatputs(win,  1,  2,  "Resetlng  Data  Files  ..."); 

493  vatput3(win,  3,  2,  "Percent  Complete  :  0%") ; 

494  d4close_all ( ) ; 

495  fcloseallO; 

496 

497  open_repair (0) ; 

498  d4zap(lL,  d4r 'ccount 0 ) ; 

499  d4clo3e_all 0 ; 

500  vatputs(wln,  3,  2,  "Percent  Complete  ;  20%"); 

501 

502  open_matreq{0) ; 

503  d4zap(lL,  d4rec count ()) ; 

504  d4close_all  0  ; 

505  vatputs (win,  3,  2,  "Percent  Complete  :  40%"); 

506 

507  open_eqpreq(0) ; 

508  d4zap(lL,  d4reccount () ) ; 

509  d4olo3e_all  0  ; 

510  vatputs (win,  3,  2,  "Percent  Complete  :  60%"); 

511 

512  open_repinfo (0)  ; 

513  d4zap(lL,  d4reccount 0 ) ; 
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514 

515 

516 

517 

518 

519 

519 

520 

521 

522 

523 

524 

525 

526 

527 

528 

529 

530 

531 

532 

533 

534 

535 

536  ) 

537 

538  Int  GnRpSchdFn (void) 

539  { 

540  ReprtSched (} ; 

541  return  (0) ; 

542  } 

543 

544  int  GnRpGantFn (void) 

545  ( 

546  ReprtGantt {) ; 

547  return  (0) ; 

548  ) 

549 

550  int  GnRpCompFn (void) 

551  { 

552  long  i; 

553  HWND  UserFnWinl7; 

554 

555  OserFnWinl?  -  vcreat(7,  40,  ERR,  YES); 

556  vlocate (UserFnWinl7,  9,  20); 

557  vframe (UserFnWinl?,  ERR,  FRDOUBLE); 

558  V3hadow(0serFnWinl7,  CURRENT,  SHADOWlOO,  BOTTOMRIGHT) ; 

559  viiititle(UserFnWlnl7,  _TOP,  CENTERJUST,  ERR,  "  none  ")  ; 

560  visible (OserFnWinl?,  YES,  YES); 

561  for  (i  -  0;  i  <  3200000;  1++) ; 

562 

563 

564  vdelete (UserFnWinl?,  NONE); 

565  return  (0) ; 

566  ) 

567 

568  int  GnRpCancFn (void) 

569  { 

570  long  i; 

571  HWND  UserFnWinlS; 

572 

573  UserFnWinlS  »  vcreat<7,  40,  ERR,  YES) ; 

574  vlocate  (OserFnWJ  ?il8,  9,  20); 

575  vframe (UserFnWinia,  ERR,  FRDOUBLE); 

576  vshadow (UserFnWinia,  CURRENT,  SHADOWlOO,  BOTTOMRIGHT); 

577  vmtitle (UserFrWinlB,  TOP,  CENTERJUST,  ERR,  •’  none  "); 

578  visible (UserFnWinlS,  YES,  YES) ; 

579  for  (i  -  0;  1  <  3200000;  i++) ; 

580 

581 

582  vdelete (UserFnWinlS,  NONE) ; 

583  return  (0); 

584  ) 

585 

586  int  GnRpSuspFn (void) 


d4close_all () ; 

V4tputs(win,  3,  2,  "Percent  Complete  :  80%"); 

open_matsup (0) ; 
d4top  0 ; 

while  (!  d4eof()) 

{ 

f4r_double(f4ref ("QTY") ,  1000.0) ; 
d4s)rip  (1)  ; 

) 

d4pac)c  0  ; 
d4close_all 0 ; 

open_eqpsup (0) ; 
d4pac]c()  ; 
d4close_all 0 ; 
fcloseall 0 ; 

vatputs(win,  3,  2,  "Percent  Complete  •  100%"); 
vatputs(wln,  5,  2,  "press  any  )sey  ..."); 
getch ( ) ; 

vdelete (win,  NONE); 
return  (0) ; 
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587  { 

588  long  i; 

589  HWND  UserFnWlnl9; 

590 

591  UserFnWinl9  -  vcreat(7,  40,  ERR,  YES) ; 

592  vlocate <UsGrFnWinl9,  9,  20); 

593  vframe(UserFnWinl9,  ERR,  FRDOUBLE) ; 

594  vshadow(UserFnWinl9,  CURRENT,  SHADOWlOO,  BOTTOMRIGHD ; 

595  vmtitle(UserFnWinl9,  _TOP,  CENTERJUST,  ERR,  none  ") ; 

596  visible (UserFnWinl9,  YES,  YES) ; 

597  for  (i  -  0;  i  <  3200000;  1++) ; 

598 

599 

600  vdelete(UserFnWinl9,  NONE); 

601  return  (0)  ; 

602  ) 

603 

604  int  GnRpPossFn (void) 

605  { 

606  long  1; 

607  HWND  UserFnWin20; 

608 

609  UserFnWin20  -  vcreat(7,  40,  ERR,  YES) ; 

610  vlocate <UserFnWin20,  9,  20); 

611  vframe {UserFnWln20,  ERR,  FRDOUBLE); 

612  vshadow{UserFnWin20,  CURRENT,  SHADOWlOO,  BOTTOMRIGHT) ; 

613  vmtitle (UserFnWin20,  _T0P,  CENTERJUST,  ERR,  "  none  "); 

614  visible (UserFnWin20,  YES,  YES); 

615  for  (1  =  0;  i  <  3200000;  i++) ; 

616 

617 

618  vdelete<UserFnWin20,  NONE) ; 

619  return  (0); 

620  ) 

621 

622  int  GnRpAMatFn (void) 

623  ( 

624  long  i; 

625  HWND  UserFnWin21; 

626 

627  UserFnWin21  •=  vcrGat(7,  40,  ERR,  YES); 

628  vlocate (OserFnWin21,  9,  20); 

629  vframe (UserFnWin21,  ERR,  FRDOUBLE); 

630  vshadow(UserFnWin21,  CURRENT,  SHADOWlOO,  BOTTOMRIGHT); 

631  vmtitle (U3erFnWin21,  _TOP,  CENTERJUST,  ERR,  "  none  "); 

632  visible (UserFnWin21,  YES,  YES) ; 

633  for  (i  -  0;  i  <  3200000;  1++) ; 

634 

635 

636  vdelete (UserFnWin21,  NONE); 

637  return  (0)  ; 

638  ) 

639 

640  int  GnRpUMatFn (void) 

641  ( 

642  long  i; 

643  HWND  UserFnWln22; 

644 

645  UserFnWin22  -  vcreat(7,  40,  ERR,  YES) ; 

646  vlocate (UserFnWin22,  9,  20); 

647  vframe (0serFnWln22,  ERR,  FRDOUBLE); 

648  v3hadow(UsGrFnWin22,  CURRENT,  SHADOWlOO,  BOTTOMRIGHT); 

649  vmtitle (0serFnWin22,  _TOP,  CENTERJUST,  ERR,  "  none  ”) ; 

650  visible (UserFnWin22,  YES,  YES) ; 

651  for  (i  -  0;  i  <  3200000;  i++) ; 

652 

653 

654  vdelete (0serFnWin22 ,  NONE); 

655  return  (0) ; 

656  } 

657 

658  int  GnRpABMtFn (void) 

659  { 

660  long  i; 
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661  HWND  0serFnWin23; 

662 

663  UserFnWln23  -  vcreat (7,  40,  ERR,  YES); 

664  vlocate <UserFnWln23,  9,  20); 

665  vframe<UserFnWin23,  ERR,  FRDOUBLE) ; 

666  vshadow(OserFnWin23,  CURRENT,  SRADOWlOO,  BOTTOMRIGHT) ; 

667  vmtitle<UserFnWin23,  _TOP,  CENTERJUST,  ERR,  "  none  "); 

668  visible (UserFnWin23,  YES,  YES) ; 

669  for  (i  “  0;  i  <  3200000;  i++) ; 

670 

671 

672  vdelete(UserFnWin23,  NONE) ; 

673  return  (0) ; 

674  } 

675 

676  int  GnRpABEqFn (void) 

677  { 

678  long  i; 

679  HWND  UserFnWin24; 

680 

681  OserFnWin24  =  vcreat  (7,  40,  ERR,  YES); 

682  vlocate (UserFnWin24,  9,  20); 

683  vfraine(UserFnWin24,  ERR,  FRDOUBLE); 

684  vs)iadow(UserFnWin24,  CURRENT,  SHADOWlOO,  BOTTOMRIGHT); 

685  vjntitle  (UserFnWin24,  _TOP,  CENTERJUST,  ERR,  "  none  '•)  ; 

686  visible (UserFnWin24,  YES,  YES)  ; 

687  for  (1  =  0;  i  <  3200000;  1++); 

688 

689 

690  vdelete (UserFnWin24,  NONE) ; 

691  return  (0) ; 

692  } 
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2 
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4 
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21 
22 

23 

24 
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46 
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56 

57 

57 

58 

59 

60 
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62 

63 

64 

65 

66 
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♦include  <stdio.h> 
♦include  <string.h> 
♦include  <stdlib.h> 


♦include  "g4char.h" 
♦include  "w4.h" 
♦include  "d4base.h" 
♦include  "PWRBASE.fi" 
♦include  "LKUmod.H" 
♦include  "STR.H" 


♦define  N0_ERR0R 

/*  Local  Prototypes  *******•**»***********»****»»*•******•**•****»»***•****•*•/ 

long  LKUmodNe xtFielddong,  int); 
void  LKOmodGetRefs (void) ; 
int  LKUmodLookWindowWidth (void)  ; 
int  LKUmodfield_width (long) ; 
int  LKOraodal l_fields(int); 

void  LKUmodDisplayRow (int,  long) ; 
void  LKUmodDlsplayLoo)cup (int)  ; 
void  LKUmodPositionLoo)cup  (long)  ; 

/*  Globals  ****»*****»**»***»*****»*******»*************•♦**********•*»*******/ 


extern  copyright; 
extern  COPYRIGHr_NOTICE () ; 


static  LOOKUP  LKUinodLoo)iup; 


static  int 
static  int 
static  int 
static  int 
static  int 
static  int 
static  int 
static  char 
static  int 
static  int 


LKUmodf irstrime  1; 

LKUmodshowFields ; 
LKUmodcu  r  rent  Re  f ; 
LKUmodtot IWndwWidth; 
LKUmodt  otalFields; 
LKUmodf  rceCol s ; 
LKUmodallowExtra  -  1; 
LKUmoddateFormat (301; 
LKUmodscrollFields; 
LKUmodt  r uncOutput ; 


static  int  LKUmodwindowWidth; 

static  long  LKUmodf ieldRefs (TOTALFIELDS) ; 

static  int  LKUmodwidths [TOTALFIELDS) ; 


long  LKUmodNextFielddong  fRef,  int  curindex) 

( 

int  found; 
int  i  =  0; 

if  (!  LKUmodshowFields) 
return  (long)  fRef; 
found  -  0; 

while  (i  <  curindex) 

( 

if  (LK0modfieldRef3[il  —  fRef) 

( 

found  ”1; 
break; 

} 

i++; 

) 

if  d  found) 

return  dong)  fRef; 
return  (long)  -  1; 

) 

int  LKUmodset_columns (int  columnWidth) 

( 

int  1  -  0; 

if  (columnWidth  I-  -1) 


68 


LKOMOO.C 


Tuesday,  January  14,  1992 


Page  2 


72 

73 

74 

75 

76 

76 

77 

78 

79 

80 
81 

82  } 

83 

84 

85 

86 

87 

88 


if  icolumnWidth  >  CRTWIDTH  I  I  columnWidth  <  0) 
columnWidth  “0; 


while  (i  <  TOTALFIELDS) 


) 


LKOmodwidths [ i ) 
i++; 


columnWidth; 


) 

return  (Int)  LKOmodwidths [i ] ; 

void  LKOmodreset_columns (void) 

{ 

LKOmodset  columns (0) ; 


89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

98 

99 
100 
101 
102 

103 

104 

105 

106 

107 

108 

109 

110 
111 
112 

113 

114 

115 

116 
116 

117 

118 
118 

119 

120 
120 
121 

Ids))  i 


void  LKOmodGetRefs (void) 

{ 

int  i  -  LKUmodshowFields; 
int  j  =  0; 
int  startNum; 


LKOmodtotalFields  -  f4num_flelds () ; 

if  (LKUmodshowFields) 
while  (j  <  i) 

( 

LKUmodf ieldRef s [ j]  »  f4ref (LKOmodLoo)tup,lField[j] .fieldName) ; 
if  (!  LKOmodwidths [j]  II  LKOmodwidths [j]  --  -2) 
if  (f4type (LKUmodfieldRefs ( j] )  —  'M') 

LKOmodwidt  hs  C  j ]  “  4 ; 

else 

if  (f4type (LKUmodfieldRefs tjl)  —  'D') 

LKOmodwidths [j)  -  strlen (LKOmoddateFormat) ; 

else 

if  (LKOmodwidths Cj)  —  -2) 

LKOmodwidths [j]  -  -  (f4width (LKUmodfieldRefs [j])); 


else 


LKOmodwidths tj)  -  f4width (LKUmodfieldRefs [j] ) ; 


) 


j++; 


if  (LKOmodtotalFields  >-  TOTALFIELDS) 
LKOmodtotalFields  -  TOTALFIELDS  -  1; 
while  (i  <  LKOmodtotalFields) 


LKUmodfieldRefs CiJ  -  LKUmodNextField(f4 j  ref(l  +  1),  i) ; 
if  (LKUmodfieldRefsCl]  —  -1) 

{ 

StartNum  -  0; 

while  (StartNum  <  LKOmodtotalFields) 


{ 

(long)  -  1) 


if  ( (LKUmodfieldRefs [IJ  -  LKOmodNextField( (long)  startNum,  (int)  LKUmodtotalFie 


122 

breaic; 

123 

startNum++; 

124 

} 

125 

) 

126 

if 

(!  LKOmodwidths [!]) 

127 

if  (f4type (LKUmodfieldRefs [il)  --'M') 

128 

LKOmodwidths [i]  -  4; 

129 

else 

130 

if  (f4type (LKUmodfieldRefs [i])  —  'D') 

131 

LKOmodwidths  1]  -  strlen (LKOmoddateFormat) ; 

132 

else 

133 

LKOmodwidths [i]  -  f4width(LKOmodfieldRefs [i] ) ; 

134 

if 

(!  LKUmodshowFields  SS  i  <  MAXLKOFIELDS) 

135 

LKOmodLoo)cup.lField[i]  .attribute  -  LKUmodLooltup.windowAttr 

136 

i++ 

f 

137 

) 

138  ) 

139 
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140  int 

141  { 

142 

143 

144 

145 

145 

146 

147 

148 

148 

149 

150 

151 

152 

153 

154 
154 

154 

155 

156 

157 

158 

159 

159 

160 
160 
161 
162 
162 
162 
163 

163 

164 

165 
165 

165 

166 

167 

168 
169 

169 

170 

171 

172 

173 

174 

174 

175 

176 

177 

178 

179 

180 
181  > 
182 

183  Int 

184  ( 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196  ) 

197 

198  int 

199  { 

200 


LKUmodLookWindowWldth (void) 
int  i; 

int  totalWidth  =  1,  tWidthl,  tWidth2,  lastWidth,  joinField; 

for  (i  -  0;  i  <  ( (LKUmodshowFields  >  0)  ?  LKUmodshowFields  ;  MAXLKUFIELDS) ;  i++) 

{ 

tWidthl  »  LKUmodfleld_width (LKUmodfieldRefs [i])  +  1; 
if  (LKUmodwidths[il  <  0) 

( 

tWidth2  -  (LKUmodwidths[i) >  +  1; 

joinField  -  1; 

while  ( (LKUmodwidthsCiJ  <  0)  (C 

(i  <  ((LKUmodshowFields  >  0)  ?  LKUmodshowFields  :  MAXLKUFIELDS))) 
i  +  +  ; 

) 

else 

tWidth2  -  LKUmodwidths [i]  +  1; 
joinField  -  0; 

) 

if  (1  LKUmodf rceCols) 

{ 

if  (tWidth2  &&  joinField) 

{ 

lastWidth  •  tWldth2; 

) 

else 

{ 

if  (tWidthl  <  tWidth2) 

{ 

lastWidth  «  tWidthl/ 

) 

else 

{ 

lastWidth  •  twidth2; 

) 

) 

) 

else 

lastWidth  -  tWidth2; 

totalWidth  +«  lastWidth; 

if  (totalWidth  >  CRTWIDTH) 

( 

totalWidth  —  ((totalWidth  -  CRTWIDTH)  +  1) ; 
break; 

1 


return  (totalWidth  +  1); 


LKUmodfield_width (long  fieldRef) 
int  length; 

if  (f4type (fieldRef)  —  'M') 
length  «  4; 

else 

if  (f4type (fieldRef)  »=  'D') 

length  -  strlen (LKUmoddateFormat) / 

else 

length  -  f4width (fieldRef ) ; 
return  length; 


LK0modall_f ields (int  refOffset) 
int  1  ”  0,  tFields  -  0,  currntPos  «  0,  reachedEnd  *  0; 
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201 

202 

203 

203 

204 

204 

205 

206 

207 

208 

209 

210 
211 
211 
212 

213 

214 
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216 
217 
217 

217 

218 

219 

220 
221 
222 
222 
223 

223 

224 

225 
225 

225 

226 
226 

227 

228 
228 
228 

229 

230 

231 

232 

232 

233 

234 

235 

236 

237 

238 

239 

240 


int  tWidthl,  tWldth2,  joinField; 
while  (1) 

if  ((refOffset  +  i)  >-  LKOmodtotalFields) 

( 

reachedEnd  -  1; 
breah; 

} 

if  <currntPos  >-  LKUmodtotlWndwWidth) 
break.; 

tWidthl  “  LKOmodfleld_width (LKOmodfieldRefs [refOffset  +  i])  +  1; 
if  (LKUmodwidths [refOffset  +  il  <  0) 

{ 

tWidth2  -  -  (LKUmodwidths [refOffset  +  i])  +  1; 
joinField  -  1; 

while  ( (LKUmodwidths [refOffset  +  i]  <  0)  && 

(i  <  ( (LKUmodshowFields  >0)7  LKUmodshowFields  :  MAXLKUFIELDS) ) ) 

i++; 

) 

else 

{ 

tWidth2  -  LKUmodwidths [refOffset  +  i]  +  1; 
joinField  -  0; 

} 

if  (!  LKUmodfrceCols) 

[ 

if  (tWidth2  joinField) 

( 

currntPos  +»  tWldth2; 

) 

else 

{ 

if  (tWidthl  <  tWidth2) 

[ 

currntPos  +»  tWidthl; 

) 

else 

( 

currntPos  +»  tWldth2; 

) 

) 

else 

currntPos  +-  tWidth2; 
tFields++; 

i++; 

) 

return  reachedEnd; 


241  void  LKUmodDisplayRow (int  row,  long  highLight) 


242 

243 

int 

i  -  0; 

244 

int 

colPos  -  0,  prevPos; 

245 

int 

nextWidth; 

246 

/* 

int 

tWidth  ;  */ 

247 

long 

fieldRef; 

248 

/* 

int 

frceWidth  ;*/ 

249 

int 

padLength; 

250 

int 

joinField; 

251 

int 

nextOffset; 

252 

int 

attrib,  trimLen; 

253 

int 

firstCombo; 

254 

char 

output Text [CRTWIDTH] ; 

255 

char 

holdText [CRTWIDTH) ; 

256 

char 

joinStrlng[CRTWIDTH] ; 

257 

char 

join2String [CRTWIDTH] ; 

258 

char 

fieldText [MAXLKDFIELDWIDTHI 

259 

firstCombo  =  0; 

260 

nextOffset  -  0; 

261 

joinField  «  0; 
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262 

263 

264 

264 

265 

266 

267 

268 

269 

270 

271 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 
280 
281 
282 

283 

284 

285 
285 

285 

286 

287 

288 

289 

290 

291 

292 

293  /* 

294 

295 

296 

297  */ 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

324 

325 

325 

326 

327 

328 


strcpy( joinstring,  "\0") ; 
strcpy ( join2String,  "\0"); 
while  (1) 

( 

prevPos  «  colPos; 

if  ( (LKUmodcurrentRef  +  i)  >-  LKUmodtotalFields) 
break; 

if  (!  nextOffset  &s  LKUmodcurrentRef  >  0) 

if  (LKUmodwidths [LKUmodcurrentRef  +  i  -  1)  <  0) 

i++; 

continue; 

fieldRef  <•  LKUmodfieldRefs [LKUmodcurrentRef  +  i]; 
nextWidth  «  LKUmodwidths [LKUmodcurrentRef  +  i); 

/*  check  for  field  combinations  */ 
if  (nextWidth  <  0) 

( 

joinField  •  1; 

nextWidth  *-  -1; 

strcpy (join2String,  "More"); 

fir3tCombo++; 

) 

else 

[ 

strcpy (join2St ring,  "\0") ; 

) 

if  (colPos  >-  (LKUmodtotlWndwWidth  -  D) 
break; 

if  (!  nextOffset) 

w4num_att (  row,  colPos++,  "  ",  1,  (highlight  —  0)  ? 
LKUmodLookup.lField(  (LKUmodshowFields  it  i  >-  LKUmodshowFields) 
7  LKUmodshowFields-1  ;  i  ]. attribute 

!  highlight  )  ; 

w4num_att (row,  colPos++,  "  ",  1,  (highlight  --  0)  ? 
LKUmodLookup.lField[i  ] .attribute 
:  highlight); 


if  (LKUmodshowFields  >0  it  1  >•  LKUmodshowFields) 
if  ( !  LKUmodallowExtra) 
break; 

if  ( (1  +  1)  >  ( (LKUmodtotalFields  <  MAXLKUFIELDS)  ?  LKUmodtotalFields  :  MAXLKUFIELDS) ) 
break; 

if  (LKUmodallowExtra  it  i  >“  LKUmodshowFields) 

LKUmodLookup.lFleld[i] .attribute  -  LKUmodLookup.windowAttr; 

if  (f4type  (fieldRef)  'D') 

if  (f4str (fieldRef; [0]  —  '  ') 

strcpy (fieldText,  STRspaces (strlen (LKUmoddateFormat) ) ) ; 

else 

strcpy (fleldText,  c4dt_forroat (f43tr (fieldRef) ,  LKUmoddateFormat) ) ; 

else 

if  (f4type (fieldRef)  —  'M') 
strcpy (fleldText,  "MEMO"); 

else 

strcpy (fleldText,  f4str (fieldRef) ) ; 


if  (joinField) 

{ 

if  ( joln2String[0]  !-  '\0') 

( 

strcpy ( join2String,  STRrtrim (fleldText) ) ; 

strcat ( join2String,  LKUmodLookup. lField[ LKUmodcurrentRef  +  i] . joinChars) ; 
strcat  (joinstring,  join2String) ; 
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346 

347 

348 

349 
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351 

352 

353 

354 

355 

356 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 

366 

367 

368 

369 

370 

371 

372 

373 
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375 

376 

377 

378 

379 

380 

381 
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399 


if  (strlen (joinstring)  >  CRTWIDTH) 

strcpy (holdText,  STRleft ( joinString,  CRTWIDTH  -  1)); 

else 

strcpy (holdText,  joinstring); 
nextOffset  •  strlen (holdText) ; 
i++; 

continue; 

) 

strcpy (joinstring,  "\0"); 

if  ( (strlen (fleldText)  +  strlen (holdText) )  <  CRTWIDTH) 
strcat (holdText,  STRrttim( fleldText) ) ; 

else 

strcat (holdText, 

STRleft (STRrtrim (fleldText) ,  ((CRTWIDTH  -  1)  -  strlen(holdText>))); 

strcpy (fleldText,  holdText) ; 

nextWidth  »  -  (LK  Imodwidths [1  -  firstCombo) ) ; 
if  (nextWidth  <  0)  nextWidth  *«  -1; 

firstCombo  -  0; 
jo<nField  -  0; 
nextOffset  -  0; 

} 

strcpy (outputText,  "XO") ; 
if  (nextWidth) 

( 

padLength  -  nextWidth  -  strlen (fleldText) ; 
if  ( (padLength  >  0)  &£  LKUmodf rceCols) 
if  (padLength  <  CRTWIDTH) 

strcpy (outputText,  STRspaces (padLength) ) ; 

else 

strcpy (outputText,  STRleft (STRspaces (padLength) ,  CRTWIDTH  -  1)); 

else 

if  ((int)  nextWidth  >  (int)  strlen (fleldText) ) 
nextWidth  -  strlen (fleldText) ; 

) 

else 

nextWidth  -  strlen (fleldText) ; 
if  ( (strlen (outputText)  +  strlen (fleldText) )  <  CRTWIDTH) 
strcat (outputText,  fleldText); 

else 

strcat (outputText,  STRleft (fleldText,  CRTWIDTH  -  1)); 

If  ((int)  strlen (outputText)  <  (int)  nextWidth) 

strcat (outputText,  STRspaces (nextWidth  -  strlen (outputText) )) ; 

else 

outputText (nextWidth)  •  ' \0' ; 

trimLen  -  strlen (outputText)  -  (LKUmodtotlWndwWidth  -  colPos); 
if  (trimLen  >  0) 

trimLen  -  strlen (outputText)  -  trimLen; 
if  (hlghLlght  --  0) 

attrib  •  (int)  LKOmodLoo)iup.lField(il  .attribute; 

else 

attrib  -  (int)  hlghLight; 
if  (trimLen  >  0) 

i f  ( LKUmodt  run  cOut  put ) 

w4num_att (row,  colPos,  STRleft (outputText,  trimLen), 
trimLen,  (long)  attrib) ; 

else 

( 

w4num_att (row,  colPos,  STRleft (STRspaces (trimLen  +  1),  trimLen), 
trimLen,  (long)  attrib); 

) 

else 

w4num_att (row,  colPos,  outputText,  nextWidth,  (long)  attrib); 

colPos  +»  nextWidth; 
i++; 
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400 

401  if  (prevPos  <■  LK JmodtotlWndwWidth) 

402  w4num_att  uuw,  prevPos,  STRspaces ( (IKUmodtotiWndwWidth  -  prevPos)  +  1), 

403  (LKUmodtotlWndwWidth  -  prevPos), 

404  (higliliight  «=  0)  ?  LKOraodLookup. windowAttr  ;  highlight); 

405 

406  ) 

407 

408  void  LKUmodDisplayLookup (int  row) 

409  { 

410  long  or  =  d4recno  '); 

411  int  i; 

412 

413  x4skip ( (long)  -  row) ; 

414  for  (i  *  0;  i  <  LKUmodLook up. height;  1++,  x4skip(lL)) 

414  { 

415  LKUmodDisplayRow (i,  (long)  0); 

416  ) 

417  d4go(cr); 

418  } 

419 

420  void  LKOmodPositionLookup (long  records) 

421  { 

422  x4skip (records) ; 

423  ) 

424 

425  long  LK'Jmodlookup  (void) 

426  ( 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

438 

439 

440 

441 

442 

443 

444 

445 

445 

446 

447 

448 

449 

450 

451 

452 
452 

452 

453 

453 

454 

455 

456 

457 

458 

459 

460 

461 

462 

463 

464 

465 

466 

467 


long  d4bof_BUG_FIX; 

int  lookWindow; 
int  lookWidth; 
int  row; 

int  returnKey  «  0; 
long  SelectRecord; 
char  tempStringl l81) ; 

/*  Ensure  that  the  LKUmodinit  function  was  called  first  */ 
if  (LKUmodfirstTlme) 

{ 

u4error (1200,  "Uninitialized  Structure", 

"LKUmodinit 0  must  be  called  prior  to  LKUmodlookup » ) " ,  (char  *)  0); 
return  0; 

) 

/*  Open  /  Select  the  file(s)  to  lookup  */ 
if  (LKUmodLookup. Ifile .dbfSelect  >-  0) 

{ 

if  (d4select (LKUmodLookup. Ifile. dbfSelect)  <  0) 
return  0; 

if  (LKUmodLookup, If ile.ndxSelect  >-  0) 

if  (i4select (LKUmodLookup. Ifile. ndxSelect)  <  0) 
return  0; 

) 

else 

( 

if  (d4u3e (LKUmodLookup .If ile . fileName)  <  0) 

{ 

#ifndef  N0_ERR0R 

/*  Problem  occured  when  closing  the  answer  database  */ 
sprintf (tempStringl, "Error  when  opening  %s", 

LKUmodLookup. Ifile . fileName)  ; 
u4error (857, tempStringl,  "",  (char  *)0  )  ; 

#endif 

return  0; 

) 

if  (LKUmodLookup. Ifile . ind,';Name (0]  !=  '\fi') 

if  (i4open  (LKU.modLookup  1  liie.indxName)  <  0) 
return  0;; 

) 
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468 

469  if  (LKUraodLookup. f ilterRoutine  !“  NULL) 

470  x4filter (LKUmodLookup. fiiterRoutine)  ; 

471 

472  x4top(); 

473  d4bof_BUG_FIX  -  d4recno(); 

474 

475  LKUmodGetRefs 0  ; 

476  lookWldth  -  LKUmodtotlWndwWldth  -  (LKUmodwlndowWidth)  ?  LKUrr.odwindowWidth 

477  ;  LKUmodLookWlndowWidth ( )  ; 

478  lookWindow  -  w4defin6 (LKUmodLookup. startRow,  LKUmodLookup. starcCoi, 

479  LKUmodLookup. StartRow  +  LKUmodLookup . height  +  1,  LKUmodLookup. startCoi  ♦  lookWidt.h 


480 

481  /• 

482 

483 

484  */ 

485 

486 

487 

488 

489 

490 

491 

492 

493 

494 

495 

496 
49? 

498 

499 

500 

501 

502 

503 

503 

504 

505 

506 

507 

507 

508 

509 

510 

511 

512 

513 

514 

515 

516 

517 

518 

519 

520 

521 

521 

522 

522 

523 

524 

525 

526 

527 

528 

529 

530 

531 

532 

534 

534 

535 


w4attribute (LKUmodLookup .windowAttr) ; 

if (  LKUmodLookup. shadow  ) 
w4shadow(  lo  kWindow,  ON  )  ; 

w4popup  0 ; 

w4border (DOOBL£_TOP,  LKUmodLookup .windowAtt r) ; 

/*  Check  the  title  strings'  length. . .  if  greater  than  the  window 
then  cut  it  */ 

strcpy (tempStrinql,  LKUmodLookup. title) ; 
if  ((int)  strlen (tempStringl)  >  (int)  lookWidth) 
tempStringl [lookWidth]  ”  '\0'; 

w4title [  (int)  -  1,  (int)  -  1,  (char  •)  tempStringl,  (long)  LKUmodLookup .windowAttr) ; 

w4activate  (lookWindow) ; 
w4clear (0) ; 
w4cursor(-l,  -1); 


row  -  0; 

LKUmodDispiayLookup  (row) ; 

while  ((returnKey  !-  RETURN)  (returnKey  !-=  ESC)  ii.  (returnKey  F3)  ) 

{ 

LKUmodDisplayRow (row,  LKUmodLookup. highLightBar) ; 
returnKey  «  g4char(); 

LKUmodDisplayRow (row,  (long)  0); 
switch  (returnKey) 

( 

case  ESC  :  SelectRecord  -  -IL; 
break; 

case  F3  :  SelectRecord  -  -2L; 
break; 

case  RETURN  :  SelectRecord  -  d4recno(); 
break; 

case  F2  :  /*  get  matid  number  to  seek  on  •/ 

/*  maybe  incorporate  string  seek  on  matdesc  *! 
break; 

case  RIGHT  : 

if  (LKUmodscrollFieids) 

if  (i  LKUmodall_f ields (LKUmodcurrentRef )  ) 

( 

while  (1) 

{ 

LKUmodcurrentRef ++ ; 

if  (LKUmodwldths (LKUmodcurrentRef  -  11  >«  0  !! 

LKUmodcurrentRef  >-  LKUmodtotalFieidsl 
break; 

) 

LKUmodDispiayLookup ( row) ; 

) 

break; 
case  LEFT  : 

if  (LKUmodscrollFieids) 

If  (LKUmodcurrentRef) 

( 

while  (1) 
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535 

536 

537 

538 

539 

540 

541 

542 

543 

544 

545 

545 

546 

547 

548 
54  9 

550 

551 

552 

553 


556 

556 

557 

557 

558 

559 

559 

560 

561 

562 

563 

564 

565 

566 

566 

567 

568 

569 

570 

571 

572 

573 

574 

575 

576 

577 

578 

579 

580 

581 

582 

583 

584 

585 

586 

587 

588 

589 

590 

591 

592 

593 

594 

595 

596 

597 

598 

599 

600 
601 
602 
603 


{ 

LKUmodcur rent Ref — / 

if  (LKUmodwidths [LKUmodcurrentRef  -  1]  >-  0  II 
LKUmodcurrentRef  0) 
break; 

) 

LKUmodDlsplayLookup<row) ; 

) 

break; 

case  UP  :  if  <d4rocnoO  !-  d4bof_BUG_FIX) 

( 

LKUmodPositionLookup(-lL)  ; 
if  (row  >  0) 
row — ; 

else 

if  (!  d4bof(l) 

w4scroll (-1) ; 

) 

break; 

case  DOWN  ;  LKUmodPositionLookup (IL) ; 

if  (++row  —  LKUisodLookup. height  II  d4eof  ()  ) 

{ 

if  (!  d4eof()) 

{ 

w4scroll  (1) ; 

} 

else 

x4bottom ()  ; 
row — ; 

} 

break; 

case  PGDN  :  LKUmodPositionLookup ( (long)  (LKUmodLookup. height.  -  1)); 
if  (d4eof()) 

( 

LKUmodPositionLookup ( (long)  (-  LKUmodLookup. he ight )) ; 
if  (d4bof()) 
x4top() ; 

) 

row  “0; 

LKUmodOisplayLookup (row) ; 

row  •  0; 

break; 

case  PGUP  !  LKUmodPositionLookup ( (long)  (-  LKUmodLookup. height )) ; 
if  (d4bof()) 
x4top  0 ; 
row  “0; 

LKUmodOisplayLookup (row) ; 

row  -  0; 

break; 

case  HOME  :  x4top(); 
row  -  0; 

LKUmodOisplayLookup (row) ; 

row  -  0; 

break; 

case  END  :  x4bottom(); 

x4skip ( (long)  -  (LKUmodLookup. height  -  1)); 
row  «  0; 

LKUmodOisplayLookup (row)  ; 

row  ”  0; 

break; 


) 


) 


w4deactivate (lookWindow) ; 
w4clo3e (lookWindow) ; 

if  (LKUmodLookup. If lie .dbf Select  <  0) 
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604  if  {d4close()) 

604  { 

605  #ifndef  NO_ERROR 

606  /*  Problem  occured  when  closing  the  query  database  */ 

607  sprintf {tempStringl, "Error  when  closing  %3", 

608  LKUmodLookup.lflle. fileName  )  ; 

609  u4error (858, tempStringl,  (char  ‘jO  )  ; 

610  #endif 

611  } 

612 

613  return  SelectRecord; 

614  ) 

615 

616 

617  void  l,KUmoddate_format (char  *  date_format) 

618  ( 

619  if  (strlen (date_format)  <  30) 

620  strcpy (LKUmoddateFormat,  date_format) ; 

621  ) 

622 

623  void  LKUmodfield (char  *  fNamo,  long  attr) 

624  { 

625  int  fieldLength  -  strlen  (fName); 

626  char  tempStringl (81) ; 

627  char  tempString2 [81] ; 

628 

629  if  (fieldLength  >  21  &&  fName  !«  (char  *)  0) 

629  { 

630  #lfndef  NO_ERROR 

631  u4error (1210, "Field  name  too  long",  fName, 

632  "Must  be  10  characters  of  less",  tempStringl,  (char  »)0  )  ; 

633  #cndif 

634  } 

634  else 

634  { 

635  strcpy (LKUmodLookup. IFleldtLKOmodshowFieldsJ .fieldName,  fName) ; 

636  if  (attr  >-  OL  (i  attr  <-  255L) 

637  LKUmodLoo)cup.lFleldCLKOmodshowPlelds] .attribute  -  attr; 

€38 

639  tifndef  N0_ERR0R 

640  else  { 

641  sprintf (tempStringl, "%d", (int) attr)  ; 

642  sprintf (tempStrlng2, "Using  the  default  field  attribute  value  of  %d", 

643  (lnt)DEFAULT_FATTR)  ; 

644  u4error (1220, "Invalid  attribute  value",  "",  tempStringl, 

645  "Attribute  must  be  between  0  and  255",  "",  tempString2,  (char  *)0  )  ; 

646  } 

647  #endif 

648 

649  if  (fName  I-  (char  *)  0) 

650  LKUmodshowFields++; 

651  ) 

652  ) 

653 

654  void  LKUmodinit (void) 

655  { 

656  strcpy (LKUmodLookup. title,  DEFAULT_TITLE) ; 

657  LKUmodLookup.windowAttr  -  (long)  DEFAULT_WATTR; 

658  LKUmodLookup. startRow  -  (char)  STARTROW; 

659  LKUmodLookup. startCol  -  (char)  STARTCOL; 

660  LKUmodLookup. height  -  (char)  DEFAULT_HEIGHT; 

661  LKUmodLookup. highLightBar  -  (long)  DEFAULT_HATTR; 

662  strcpy (LKUmodLookup. Ifile. flleName,  "\0"); 

663  strcpy (LKUmodLookup. Ifile. indxName,  "\0”) ; 

664  LKUmodLookup . If lie . dbf Select  -  -1; 

665  LKUmodLookup. ifile. ndxSelect  -  -1; 

666  LKUmodLookup. filterRoutlne  -  NULL; 

667  LKUmoddate  format ("MM/DD/YY") ; 

668  LKUmodfrceCols  -  0; 

669  LKUmodwindowWidth  -  0; 

670  LKUmodallowExtra  -  1; 

671  LKUmodLookup. shadow  «  0; 

672  LKUmodset_columns  (0) ; 

673  LKUmodscrollFields  -  1; 
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674  LKUraodtruncOutput  »  1; 

675 

676  LKUmodcurrentRef  -  LKUmodshowFields  -  LKOmodf IrstTime 

677  /* 

678  if (  !  copyright  ) 

679  COPyRIGHT_NOTICE()  ; 

680  */ 

681  ) 

682 

683  void  LKUmodtitle (char  *  title) 

684  { 

685  int  titleLength  »  strlen  (title) ; 

686  char  tempStringl [81 ] ; 

687  char  tempString2 [81 1 ; 


685  int  titleLength  »  strlen  (title) ; 

686  char  tempStringl [81 ] ; 

687  char  tempString2 [81 1 ; 

688 

689  if  (titleLength  >  TITLELENGTH) 

689  { 

690  #lfndef  NO_ERROR 

691  spr int f (tempStringl, "Must  be  %d  characters  of  less", TITLELENGTH)  , 

692  sprintf  {tempStrlng2,  "Loo)cup  title  will  contain  %s",  DEFAULT_TITLE) 

693  u4ertor (1230, "Title  too  long",  "",  title,  "",  tempStringl, 

694  tempString2,  (char  *)0  )  ; 

695  «endlf 

696  } 

696  else 

697  strcpy  (LKUmodLoo)tup.  title,  title); 

698  ) 

699 

700  void  LKUmodposition  (int  startRow,  int  started,  int  windovtHeight) 

701  { 

702  char  tempStringO [81] ; 

703  char  tempStringl [81] ; 

704  char  tempString2 [81 1 ; 

705 

706  if  (startRow  !*  -1) 

706  ( 

707  if  (StartRow  >-  0  startRow  <-  MAXROWS) 

708  LKUmodLoolcup. StartRow  -  (char)  startRow; 

709  else 

709  { 

710  #ifndef  N0_ERR0R 

711  sprintf (tempStringl, "Must  be  between  0  and  %d", MAXROWS) 

712  sprintf (tempString2, "Using  default  value  of  %d  rows”, 

713  (int)DEFAULT_ROWS)  ; 

714  u4error (1240, "Row  position  outside  screen  limits",  "", 

715  tempStringl,  tempString2,  (char  *)0  )  ; 

716  #endif 


if  (startCol  !-  -1) 

( 

if  (startCol  >-  0  ((  startCol  <-  MAXCOLS) 

LKUmodLoo)tup. StartCol  -  (char)  startCol; 

else 

{ 

♦ifndef  NO_ERROR 

sprintf (tempStringl, "Must  be  between  0  and  %d", MAXCOLS)  , 
sprintf (tempString2, "Using  default  value  of  %d  columns", 
(int)DEFAULT_COLS)  ; 

u4error (1242, "Column  position  outside  screen  limits",  "", 
tempStringl,  "",  tempString2,  (char  *)0  )  ; 

♦endif 


if  (windowHelght  !-  -1) 

{ 

if  (windowHeight  >=  1  &&  windowHelght  <••  (MAXROWS  -  startRow)) 
LKUmodLoolcup. height  -  (char)  windowHeight; 

else 


#ifndef  NO_ERROR 

sprintf (tempStringO, "Height  of  %d  will  not  fit  in  the  window”, 
windowHeight)  ; 

sprintf (tempStringl, "Must  be  between  1  and  %d". 
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(int) (MAXROWS-startRow) )  ; 

sprintf (tempStrlng2, "Using  default  value  of  %d  rows", 
(int)DEFAULT_HEIGHT)  ; 

u4error (1244,tempStrlngO,  tempStrlngl,  teropString2, 

(char  *)0  )  ; 

#endlf 


) 


> 


740 

741 

742 

743 

744 

745 

746 

747 

748  ) 

749 

750  void  LKUmodselect (int  dbfRef ,  int  ndxRef ) 

751  { 

752  char  tempStringl [81] ; 

753 

754 

754 

755 

755 

756 

757 

758 

759 

760 

761 

762 

762 

763 

764 
764 

764 

765 

766 

767 

768 

769 

770 

771 

772 

772 

773 

773 

774 

775 

776 

777 

778 

779 

779 

780 

781 

781 

782 

783  ) 

784 

785  void  LKUmodf ile (char  *  dbfName,  char  *  ndxName) 

786  { 

char  fileMatch [ 14 ] ; 
char  tempStringl [81 1 ; 


if  (dbfRef  !-  -1) 

( 

if  (d4select (dbfRef)  <  0) 

( 

#lfndef  NO_ERROR 

sprintf (tempStringl, 

"Database  base  reference  %d  not  available.", dbfRef)  ; 
u4error (1250, "Invalid  Base  Reference",  tempStringl, 

"",  "Exiting  loo)cup  function",  (char  *)0  )  ; 

#endif 

) 

else 

LKUmodLookup. If lie .dbf Select  ”  dbfRef; 

} 

else 

{ 

#ifndef  N0_ERR0R 

sprintf (tempStringl, "No  database  base  reference  given.", dbfRef)  ; 
u4error (1251, "Invalid  Base  Reference",  "", 

"No  database  base  reference  given.",  (char  *)0  )  ; 

♦endif 

) 

if  (ndxRef  !=  -1) 

I 

if  (i4select (ndxRef)  <  0) 

( 

♦ifndef  NO_ERROR 

sprintf (tempStringl, "Index  reference  %d  not  available .", ndxRef) 
u4error (1252, "Invalid  Index  Reference",  "",  tempStringl, 
"Exiting  loo)iup  function",  (char  *)0  )  ; 

♦endif 

) 

else 

LKUmodLoojiup.lfile.ndxSelect  -  ndxRef; 

) 

else 

LKUmodLoo)tup.  If  lie  .ndxSelect  -  ndxRef; 


787 

788 

789 

790 

790 

791 

791 

792 

793 

794 

795 

796 

797 

798 
798 

798 

799 

800 


if  (dbfName[0]  !-  '\0') 

{ 

if  (u4file_first (dbfName,  fileMatch)) 

{ 

tifndef  N0_ERR0R 

sprintf (tempStringl, "Invalid  %s  database  path  or  file  name.", 
dbfName)  ; 

u4error (1254, tempStringl,  "Exiting  loo)cup  function", 

(char  •)  0  )  ; 

♦endif 

) 

else 


{ 


strcpy (LKUmodLookup.lfile . fileName,  dbfName) , 
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801  ) 

801  else 

801  ( 

802  tlfodef  N0_ERR0R 

803  sprintf (tempStrlngl, "No  database  path  or  file  name  given.", 

804  dbfName)  ; 

805  u4error <1255, tempStringl,  "Exiting  lookup  function", 

806  <char  *)C  )  ; 

807  #endif 

808  } 

809 

810  if  (ndxNametO]  !-  '  \0' ) 

810  { 

811  if  (u4file_first (ndxName,  fileMatch) ) 

811  { 

812  #lfndef  NO_ERROR 

813  sprintf (tempStringl, "Invalid  %3  index  path  or  file  name.", 

814  ndxName)  ; 

815  u4error (1256, tempStringl,  "Exiting  lookup  function", 

816  (char  *)0  )  ; 

817  ♦endif 

818  ) 

818  else 

818  { 

819  strcpy (LKUmodLookup. Ifile . indxName,  ndxName); 

820  } 

821  } 

822  ) 

823 

824  void  LKUmodattributes (long  windowAttrib,  long  highlightBar) 

825  ( 

826  char  tempStringl [81]; 

827  char  tempStrlng2 [81 ] ; 


strcpy (LKUmodLookup. Ifile . indxName,  ndxName) ; 


826  char  tempStringl [81]; 

827  char  tempStrlng2 [81 ] ; 

828 

829  if  (windowAttrib  1-  -1) 

829  ( 

830  if  (windowAttrib  >-  OL  a  windowAttrib  <>•  255L) 

831  LKUmodLookup. wlndowAttr  -  windowAttrib; 

832 

833  fifcdef  NO_ERROR 

834  else  { 

835  sprintf (tempStringl, "%d", (Int)windowAttrib)  ; 

836  sprintf (tempString2, 

837  "Using  the  default  field  attribute  value  of  Id”, 

838  (int)DEFAULT_FATTR)  ; 

839  u4error (1220, "Invalid  attribute  value",  tempStringl,  "", 

840  "Attribute  must  be  between  0  and  255",  "",  tempString2, 

841  (char  *)0  )  ; 

842  } 

843  lendif 

844  } 

845  if  (highlightBar  !-  -1) 

845  { 

846  if  (highlightBar  >-  OL  highlightBar  <-  255L) 

847  LKUmodLookup. highLightBar  -  highlightBar; 

848 

849  #ifndef  N0_ERR0R 

850  else  ( 

851  sprintf (tempStringl, "Id", <int)highlightBar)  ; 

852  sprintf (tempStrlng2, "Using  the  default  field  attribute  value  of  Id" 

853  (int)DEFAULT_FATTR)  ; 

854  u4error (1220, "Invalid  attribute  value",  tempStringl,  "", 

855  "Attribute  must  be  between  0  and  255",  "",  tempStrlng2, 

856  (char  *)0  )  ; 

857  ) 

858  tendif 

859  ) 

860  } 

861 

862  void  LKUmodf liter (int  <*  f ItrFunction)  (void)) 

863  { 

864  LKUmodLookup. fllterRoutlne  «  fltrFunction; 

865  ) 

866 
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867 

868  int  LKUinodcolumn  width  (int  columnNum,  int  width) 

869  { 

870  char  tempStringO[81] ; 

871  char  tempStringl [81 ] ; 

872 

873  if  (columnNuw  >-  TOTALFIELDS  II  columnNum  <  0) 

873  { 

874  tifndef  NO_ERROR 

875  sprintfTtempStringO, "Invalid  column  number  %d", (int) columnNum)  ; 

876  sprintf (tempStringl, "Column  numlaer  must  be  between  0  and  %d", 

877  (int) TOTALFIELDS)  ; 

878  u4error (1260,tempString0,  tempStringl, 

879  "Using  the  field  width  as  the  default",  (char  *)0  )  ; 

880  *endlf 

881  return  -  1; 

882  ) 

883  if  (width  !-  -1) 

883  { 

884  if  (width  <-011  width  >  CRTHIDTH) 

884  ( 

885  #ifndef  NO_ERROR 

886  sprintf (tempStringO, "Invalid  column  width:  %d", (int) width)  ; 

887  sprintf (tempStringl, "Column  width  must  be  between  1  and  %d", 

888  (int)CRTWIDTH)  ; 

889  u4error (1262, tempStringO,  "",  tempStringl, 

890  "Using  the  field  width  as  the  default",  (char  •)0  )  ; 

891  tendif 

892  return  -  1; 

893  ) 

894  if  (LKUfflodwidths [columnNum]  <  0) 

895  LKUmodwidths [columnNum]  -  -  width; 

896  else 

897  LKUmodwidths [columnNum]  -  width; 

898  > 

899 

900  if  (LKUmodwidths [columnNum]  <  0) 

901  return  -  (LKUmodwidths [columnNum] ) ; 

902  else 

903  return  LKUmodwidths [columnNum]; 

904  ) 

905 

906  int  LKUmodforce_column8 (int  fcSwitch) 

907  ( 

908  if  (fcSwitch  1-  -1) 

909  LKUmodfrceCols  -  (fcSwitch)  ?  1  ;  0; 

910 

911  return  LKUmodfrceCols; 

912  ) 

913 

914  int  LKUmodallow_extra (int  aeSwitch) 

915  { 

916  if  (aeSwitch  !-  -1) 

917  LKUmodallowExtra  -  (aeSwitch)  ?  1  ;  0; 

918 

919  return  LKUmodailowExtra; 

920  } 

921 

922  int  LKUmodwlndow_width (int  nowWidth) 

923  { 

924  if  (newWidth  ! - 1) 

925  if  (newWidth  >  0) 

926  LKUmodwindowWidth  -  (newWidth  <-  CRTWIDTH)  ?  newWidth  :  0; 

927 

928  return  LKUmodwindowWidth; 

929  1 

930 

931  int  LKUmodscrolling (int  scrollSwitch) 

932  ( 

933  if  (scrollSwitch  !-  -1) 

934  LKUmodscrollFlelds  •>  (scrollSwitch)  ?  1  ;  0; 

935 

936  return  LKUmodscrollFlelds; 

937  ) 
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938 

939  Int  LKOmodtruncate (int  truncSwitch) 

940  { 

941  if  (truncSwitch  !-  -1) 

942  LKUmodtruncOutput  -  (truncSwitch)  ?  1  :  0; 

943 

944  return  LKUmodtruncOutput; 

945  } 

946 

947  void  LKUmodcombine  fields (char  *  joinchars) 

948  { 

949  if  (LKUmodshowFields  >  0  ts  LKUmodshowFields  <  MAXLKUFIELDS) 

949  ( 

950  if  ( St rlen( joinchars)  >  MAXJOINCHARS) 

951  return; 

952  if  (LKUmodwidths (LKUmodshowFields  -  1)  —  0) 

953  LKUmodwidths [LKUmodshowFields  -  1)  -  -2; 

954  else 

955  LKUmodwidths [LKUmodshowFields  -  1)  *-  -1; 

956  strcpy (LKUmodLookup. IField [LKUmodshowFields  -  1) . joinchars,  joinchars); 

957  ) 

958  } 

959 

960  int  LKUmodshadow (int  of Switch) 

961  ( 

962  if  (ofSwitch  !-  -1) 

963  LKUmodLoo)cup . shadow  -  (ofSwitch)  ?  1  :  0; 

964 

965  return  LKUmodLoo)cup. shadow; 

966  } 
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1  /* 

2  *  main.c 

3  * 

4  */ 

5 

6  #include  "dwmenu.h" 

7  #include  "rmrsinit.h" 

8  tinclude  "d4base.h" 

9  tinclude  "dw.h" 

10 

11  tdeflne  MAINMODOLE 

12  tinclude  "rmrs.h" 

13 

14  void  main (Int  argc,  char  *  argv[l) 

15  { 

16  If  (argc  >  1)  setdwlib(-l,  7,  -1,  -1); 

17  else  setdwlib (-1,  3,  -1,  -1); 

18  d4initiali2e (10,  15,  80,  3000,  OxFCOOL) ; 

19  IntroScreen () ; 

20  SetupMenu (} ; 

21  while  (1) 

22  ( 

23  MNUDoSelect (mmain,  NOLLF) j 

24  ) 

25  ) 
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1  /* 

2  *  miscutll.c 

3  ♦ 

4  *  miscellaneous  utility  functions 

5  •/ 

6 

^  tinclude  <string.h> 

8  tinclude  <stdio.h> 

9  linclude  <conio.h> 

10  tinclude  <ctype.h> 

11  tinclude  "dw.h" 

12 

13  void  trimstr(char  *  s) 

13  { 

14  /* 

15  *  ARGUMENT 

16  *  (char  *)  s  -  input  string 

17  * 

18  *  DESCRIPTION 

19  *  Trim  string  of  leading  and  trailing  blanks 

20  * 

21  *  RETURNS 

22  * 

23  */ 

24 

25  int  len,  cnt  -  0,  i; 

26 

27  /*  remove  white  space  at  beginning  of  string  */ 

28  for  (cnt  -  0;  isspace(*(s  +  cnt));  cnt++); 

29  len  =  strlen(s); 

30  for  (i  -  0;  i  <-  (len  -  cnt);  i++) 

31  *  (s  +  i)  »  *  (s  +  1  +  cnt); 

32  *  (s  +  len  +  1)  »  ' \0' ; 

33 

34  /*  remove  white  space  at  end  of  string  •/ 

35  len  «  strlen  (s) ; 

36  len — ; 

37  while  (isspace(*(s  +  len))) 

38  len — ; 

39  *  (s  +  len  +  1)  -  '\0'; 

40 

41  ) 

42  void  dmpxtrakeys (void) 

42  ( 

43  /• 

44  *  ARGUMENT 

45  * 

46  *  DESCRIPTION 

47  *  Dumps  extra  keystrokes  from  input  buffer 

48  * 

49  •  RETURNS 

50  * 

51  */ 

52 

53  while  (kbhitO)  getchO; 

54  ) 

55 

56  char  *  uppercase (char  *  str) 

56  ( 

57  /* 

58  •  ARGUMENT 

59  *  (char  *)  str  -  input  string 

60  * 

61  *  DESCRIPTION 

62  *  Converts  all  lowercase  characters  of  string  to  uppercase 

63  * 

64  *  RETURNS 

65  *  (char  *)  converted  string 

66  * 

67  */ 

68 

69  int  i,  len; 

70 

71  len  ••  itrlen  (str)  ; 
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72  for  (i  -  0;  i  <-  (len  -  1);  i++) 

73  strfl]  «  toupper{strtiJ); 

74  return  (str) ; 

75  ) 
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1  /* 

2  *  procauto.c 

3  * 

4  *  contains  DoProcessAuto () 

5  * 

6  *  by  Chris  Sawyer  (last  rev:  1/4/91) 

7  */ 

8 

9  /* 

10  *  Rev  1.0  ??  Jan  1992 

11  *  Original  release 

12  * 

13  * 

14  */ 

15 

16  #lnclude  <stdio.h> 

17  #include  <conio.h> 

18  #include  <3tdlib.h> 

19  #include  <dir.h> 

20  #include  <strlng.h> 

21  ♦include  <dw.h> 

22  llnclude  <dwmenu.h> 

23  #include  <dMsystetn.h> 

24  #include  <color.h> 

25  tinclude  <d4base.h> 

26 

27  //  custom  header  files 

28  tinclude  "sysdefs.h"  //  general  typedefs  and  defs  for  procauto.c  &  comprom.c 

29  finclude  "dbutil.h"  //  database  access  fns  (only  used  by  procauto.c  t,  comprom.c  presently) 

30  #lnclude  "miscutil.h"  //  miscellaneous  fns  (only  used  by  procauto.c  £  comprom.c  presently) 

31  #include  "procutil.h" 

32  finclude  "rmrsutil.h" 

33  Int  DoCompromise (long,  REQLSTNODE  *); 

34 

35  ^define  RMRSERROR  -99 

36  fdefine  NOFILES  -1 

37  tdeflne  FOUND  0 

30  tdeflne  NOTFOUND  1 

39 

40 

41  //  Assume  all  databases  exist 

42  //  Handle  for  empty  case 

43 

44  //  SETUP  RMRS  SYSTEM  DIRECTORY  VARIABLES 

45  //  TO  BE  DEFINED  IN  "INIT/SETUP"  FUNCTION 

46  tlfdef  RMRSSYSTEMDIRS 

47  extern  char  pdesinputdirpath; 

48  extern  char  pdesarchvdirpath; 

49  #else 

50  char  pdesinputdirpath [50]  - 

51  char  pdesarchvdirpath [50]  -  "archiveW"; 

52  tendif 

53 

54  extern  HWND  win;  //  Process  I  Auto  mode  comand  window  handle 

55 

56  int  LoadSingFacFiles (char  *); 

57  long  GetFacnum (char  *); 

58  long  GetNxtAvlRepid (void) ; 

59  int  LoadEqpReqs  (char  *,  long,  long,  i.it); 

60  int  LoadMatReqs (char  *,  long); 

61  int  LoadRepInfo (char  *,  long); 

62  int  TryResAlloc (void) ; 

63  int  AddRepRec (long,  long,  int); 

64  int  AddEqpRec(EQPREQREC) ; 

65  int  AddMatRec (char  *,  float,  char  *,  long,  char); 

66  int  AddRepInfoRec(REPINFOREC  *); 

67  void  ArchiveFile (char  *,  char  *,  long) ; 

68  long  Hr ToSec (float) ; 

69  long  ChJtOvrdPoss  (long,  float,  long); 

70  int  AnyConflicts (REQLSTNODE  *) ; 

71  int  SIclpLines  (FILE  *,  int,  char  *); 

72  void  ParseLine (char  *,  char  *)  ; 

73  void  PrintCh)cLst  (REQLSTNODE  *); 

74  void  ClearChlcLst  (REQLSTNODE  ♦)  ; 
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75  int  AllocMatls (REQLSTNODE  *,  long) ; 

76  int  setrepairstatus <int,  long); 

77  int  GetRepairPrty (long) ; 

78  void  cleanwin (void) ; 

79 

80  #ifdef  RMRSPROCSTATS 

81  //  processing  info  variable  declarations 


82 

typedef 

struct  faclistnode  ( 

83 

char 

•facnumstr [10] ; 

n 

facility  numloer  string  (e 

.g,  B4058) 

J. 

84 

int 

numof reps; 

n 

number  of  repairs  in  that 

submission 

85 

struct  faclistnode  *next; 

86  }  FACLISTNODE; 

87  int  numof repsprocd;  II  #  of  repairs  processed 

88  int  numofconflreps;  //  #  of  repairs  w/  conflicts 

89  FACLISTNODE  *faclist;  //  LL  of  facilities  processed 

90  ♦endif 

91 

92  //  local  statistic  var 

93  static  int  fileloadcnt; 

94 

95  /* 

96  *  int  DoProcessAuto {) 

97  * 

98  *  ARGUMENTS;  none 

99  * 

100  *  DESCRIPTION 

101  *  Loads  ALL  new  PDES  facility  repair  files  and  checks  for  resource 

102  •  availability  conflicts,  allocating  material  resources  to  a  repair 

103  *  if  no  conflicts  arise  or  upon  succesful  resolution  of  those  conflicts 

104  •  Repairs  go  to  one  of  three  states:  (P)ossible 

105  *  (S) uspended 

106  *  (X) canceled 

107  * 

108  *  RETURNS 

109  * 

110  *  AUTHOR 

111  *  Applied  Research  Associates,  Inc, 

112  * 

113  *  MODIFICATIONS 

114  * 

115  */ 

116 

117  int  DoProcessAuto (void) 

118  ( 

119  struct  ffblk  fblkptr; 

120  int  done; 

121  char  facnumstr [10] ; 

122  char  pdeslnputfilestr [65] ; 

123 

124  //  compose  custom  colors 

125  { 

125  int  attr; 

126  II  colors  used  in  COMPROMISE  ENVIRONMENT 

127  attr  -  bldattr (LTGREY,  RED) ; 

128  tblattr(SELBLINK,  attr  I  GINTENSITY  I  GBL.  NK) ; 

129  attr  -  bldattr (LTGREY,  RED) ; 

130  tblattr (SELNORM,  attr  I  GINTENSITY); 

131  attr  -  bldattr (BLACK,  LTGREY); 

132  tblattr (SELQTYBLINK,  attr  I  GBLINK) ; 

133  tblattr (SELQTY,  attr) ; 

134  attr  -  bldattr (WHITE,  BLUE); 

135  tblattr (HILITE,  attr); 

136 

137  II  colors  used  in  miscellaneous  MESSAGE  BOXES 

138  attr  -  bldattr (WHITE,  LTGREY); 

139  tblattr (GREYBOX,  attr  |  GINTENSITY); 

140  attr  -  bldattr (BLACK,  LTGREY); 

141  tblattr (GRYBTXT,  attr) ; 

142  tblattr (GRYBTXTBLINK,  attr  I  GBLINK); 

143  attr  =  bldattr (CYAN,  BLUE); 

144  tblattr (KEYALERT,  attr  I  GBLINK); 

145  attr  =  bldattr (CYAN,  BLUE) ; 

146  tblattr (KEYMESS,  attr) ; 

147  attr  -  bldattr (BLACK,  GREEN); 
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148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

174 

175 

176 

177 

178 

179 

180 
181 
182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 
201 
202 

203 

204 

205 

206 

207 

208 
209 


tblattr (FLSHCHR,  attr  |  ^BLINK) ; 

) 

//  open  required  databases  (old  method) 
repair_dbf  -  d‘«”se_excl  ("REPAIR. DBF")  ,- 
matreq_dbf  »  d4use_excl ("MATREO.DBF") ; 
eqpreq_dbf  =  d4use_cxcl ("EQPREQ.DBF") ; 
eqpsup_dbf  ■=  d4use_excl ("EQPSUP.DBF") ; 
matsup_dbf  =  d4use_excl ("MATSOP.DBF") ; 
repinfo_dbf  =  d4use_excl ("REPINFC .DBF") ; 


fileloadcnt  »  0;  II  init  file  load  count 

//  RETRIEVE  NEW  PDES  FILES  FROM  INPUT  DIRECTORY 

//  Since  files  are  removed  from  this  directory  after  processing, 

//  any  . EQP, .MAT, .OUT  files  found  there  are  considered  to  be  new. 

strcpy (pdesinputfilestr,  pdeslnputdirpath) ; 

strcat (pdesinputfilestr,  "* .EQP") ; 

done  =  findfirst  (pdesinputfilestr,  &  fbl)tptr,  0); 

if  (done  ==  NOFILES) 

{ 


vatputs (win, 
vatputs (win, 
vatputs (win, 
vatputs (win, 
get  key  ()  ; 
return  (0)  ; 


1,  2,  "WARNING:  NO  FILES  FOUND  IN  ") 

2,  2,  "  SPECIFIED  DIRECTORY  ") 
4,  2,  "**  Check  PDES  Input  directory  setting  ") 
6,  5,  "->  press  any  key  to  continue  ") 


} 

//  Load  facility  repair  file  sets  one  at  a  time 
while  (done  :=  NOFILES) 

{ 

strcpy (facnumstr,  fblkptr . f f_name) ; 
facnumstr [strlen (facnumstr)  -  4)  *  ' \C' ; 
vatputf(win,  2,  2,  "Loading  facility  files  for: 
modattr(win,  2,  30,  7,  HELP) ; 


%.Ss 


facnumstr)  , 


LoadSingFacFiles (facnumstr) ; 
done  -  findnex-  (&  fblkptr)  ; 


) 

d4close_all 0  ;  // 

//  reindex  files  that  changed 

open_matreq (1) ;  //  3  files  open 

open_eqpreq(l) ;  //  6  files  open 

open_repair (1) ;  //  3  files  open 

open_repinfo (1) ;  //  2  files  open 

d4close_all 0 ;  // 

//  reopen  files  to  use  for  resource  allocation 
repair_dbf  =  d4use_excl ("REPAIR. DBF") ; 
matreq_dbf  =  d4use_excl ("MATREQ.DBF") ; 
eqpreq_dbf  =  d4use_excl ("EQPREQ.DBF") ; 
eqpsup_dbf  =  d4use_excl ("EQPSUP .DBF") ; 
matsup_dbf  =  d4use_excl  ("MATSUP.DBF")  ,• 


cleanwin  ()  ; 
TryResAlloc  0 ; 

d4close_3li () ; 
open_mat  req (1); 
open_eqpreq(l) ; 
openrepair (1) ; 
d4close_all ( ) ; 
return  (1)  ; 


//  3  files  open 
//  6  files  open 
//  3  files  open 


210  int  LoadSingFacFiles (char  *  facnumstrptr) 

211  /* 

212  *  ARGUMENT 

213  *  (char  *)  facnumstrptr  -  pointer  to  facility  number  string  (e.g.  "B4058") 

214  * 

215  *  DESCRIPTION 

216  *  Loads  the  repair-specific  databases  (REPAIR. DBF,  EQPREQ.DBF,  MATREQ.DBF, 

217  *  and  REPINFO.DBF)  with  the  repair  data  from  a  single  facility  repair  file 

218  *  set  (i.e,  the  .EQP,  .MAT,  and  .OUT  files)  specified  by  'facnumstrptr' 

219  * 
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220  *  RETURNS 

221  *  (int)  status  code:  SUCCESS  or  FAILURE 

222  * 

223  *  DATABASES  AFFECTED  (whether  direct  or  indirect) 

224  *  facprt_dbf  <facprt_ndxl  -  FACNOM  index)  -  d4seek  used 

225  *  repair_dbf  (no  index  used) 

226  •  eqpreci_dbf  (no  index  used) 

227  *  matreq^t^bf  (io  index  used) 

228  *  repinfo_dbf  (no  index  used) 

229  • 

230  */ 

231  { 

232  long  facnutn  -  OL,  indxrepid  -  OL,  currrepld  -  OL; 

233  int  priority  -  0,  err  -  0; 

234 

235  currrepid  -  GetNxtAvlRepld 0 ;  //  get  next  avail  repair  id 

236  indxrepid  »  currrepid; 

237  facnum  -  GetFacnum (facnumstrptr) ; 

238  //  loo)c  up  facility  priority  in  FACPRTY.DBF 

239  if  (!  (priority  =  GetFacPrty (facnum) ) ) 

239  { 

240  u4error(-l,  "WARNING:  Facility  not  listed  in", 

241  "FACPRTY.DBF", 

242  processing  will  be  aborted", 

243  "for  this  facility",  (char  *)  0) ; 

244  return  (FAILURE);  //abort 

245  ) 

246  err  =  LoadEqpReqs (facnumstrptr,  Indxrepid,  facnum,  priority); 

247  if  ( '.  err)  err  =  LoadMatReqs  ( facnumstrptr,  indxrepid); 

248  if  (!  err)  err  «  LoadRepInfo (facnumstrptr,  indxrepid); 

249  return  (err) ; 

250  ) 

251 

252  int  LoadEqpReqs (char  *  facnumstrptr,  long  indxrepid,  long  facnum,  int  priority) 

252  { 

253  /* 

254  »  ARGUMENT 

255  *  (char  •)  facnumstrptr  -  pointer  to  facility  number  string  (e.q.  "B4058") 

256  *  (long)  indxrepid  -  index  repid 

257  *  (long)  facnum  -  facility  number 

258  *  (int)  priority  -  AB  mission-critical  facility  priority  assignment 

259  * 

260  *  DESCRIPTION 

261  *  Loads  the  repair  equipment  requirements  into  EQPREQ.DBF  from  the  .EQP 

262  *  file  specified  by  'facnumstrptr';  also,  because  each  repair  is 

263  *  guaranteed  to  have  at  least  1  equipment  requirement,  namely  a  "repair 

264  *  team",  this  fact  is  exploited  within  this  function  to  produce  a  repair 

265  *  data  record  (REPAIR. DBF)  for  each  repair 

266  • 

267  *  RETURNS 

268  *  (int)  error  status  code:  <  0  -  error 

269  *  =  0  -  success 

270  * 

271  *  DATABASES  AFFECTED  (whether  direct  or  indirect) 

272  *  eqpreq_dbf  (no  index  used) 

273  * 

274  */ 

275  char  eqpfilename [50] ; 

276  FILE  *  eqpfileptr; 

277  long  currrepid; 

278  char  prev[61,  *  currptr; 

279  char  fileline [80] ; 

280  int  eqpqty; 

281  int  err; 

282  EQPREQREC  eqprecbuf; 

283 

284  //  load  equipment  requirements  from  .EQP  file  into  EQPREQ.DBF  * 

%  285  strcpy (eqpfilename,  pdesinputdirpath) ; 

286  strcat (eqpfilename,  facnumstrptr); 

287  strcat (eqpf i lename,  ".EQP"); 

288  if  ((eqpfileptr  *=  f  open  (eqpf  i  lename,  "r"))  !=•  NULL) 

288  ( 

289  currrepid  -  Indxrepid; 

290  AddRepRec (facnum,  currrepid,  priority); 
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291 

292 

293 

294 

295 

296 

296 

297 
296 
299 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 
316 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

333 

334 


strcpy {prev,  "1") ; 
fgets {fileline,  80,  eqpfileptr); 
strtok  (fileline,  ; 

currptr  =  strtok(NULL,  ; 

while  (!  feof (eqpfileptr) ) 

{ 

//  checlc  to  see  this  is  eqp  for  diff  repair 

//  if  yes,  create  new  repair  record  with  unique  id  # 

if  (atoi (currptr)  >  atoi (prev) ) 

( 

strcpy (prev,  currptr) ; 

currrepid  -  indxrepid  +  (atoi (cur rptr)  -  1); 
err  -  AddRepRec (facnum,  currrepid,  priority); 

) 


//  initialize  eqp  record  structure 
eqprecbuf .eqpid  -  OL; 
strcpy (eqprecbuf.eqpdescstr,  ; 
eqprecbuf . start  “  OL; 
eqprecbuf .duration  =  OL; 
eqprecbuf . repld  -  currrepid; 
eqprecbuf  .status  ••  'N'; 

//  parse  equipment  record  for  information 
strto)c{NULL,  "\""); 

strcpy  (eqprecbuf  .eqpdescstr,  strtoic  (NULL,  "\"")  )  ; 

strto)c{NULL,  "\"")  ; 

eqpqty  -  atoi  (strto)c  (NULL,  "\"")); 

strto)t(NOLL,  "\"")  ;  strto)c  (NULL,  ”\"");  strto)c  (NULL,  "\"")  ; 
eqprecbuf .duration  -  HrToSec (atof (strto)c  (NULL,  "\’"))); 

II  add  separate  eqpuipment  requlrment  record 
//  for  each  individual  piece  of  equipment 
for  (;  eqpqty;  eqpqty — ) 

err  -  AddEqpRec (eqprecbuf) ; 

SlcipLines  (eqpfileptr,  1,  fileline); 

St rto)4  (fileline,  } 

currptr  -  strto)t  (NULL,  "N"") ; 

) 

fclose (eqpfileptr) ; 

ArchlveFile (eqpfilename,  ".EQP",  indxrepid); 
return  (RMRSSUCCESS) ; 

} 

else 

{ 

u4error'-l,  "FILE  ACCESS  RMRSERHOR!",  "can't  .EQP  open  file:",  eqpfilename,  (char  »)  0) 


335  return  (-1) ; 

336  ) 

337  ) 

338 

339 

340  int  LoadMatReqs (char  *  facnumstrptr,  long  indxrepid) 

340  ( 

341  I* 

342  •  ARGUMENT 

343  *  (char  *)  facnumstrptr  -  pointer  to  facility  number  string  (e.g.  "84056") 

344  *  (long)  indxrepid  -  index  repid 

345  * 

346  *  DESCRIPTION 

347  *  Loads  the  repair  material  requirements  into  MATREQ.DBF  from  the  .MAT 

348  *  file  specified  by  'facnumstrptr' 

349  * 

350  *  RETURNS 

351  *  (int)  error  status  code:  <  0  -  error 

352  *  ”  0  -  success 

353  * 

354  *  DATABASES  AFFECTED  (whether  direct  or  indirect) 

355  *  matreq_dbf  (no  index  used) 

356  * 

357  */ 

358 

359  char  mat  filename (50); 


/■ 


I- 
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360  FILE  *  matfileptr; 

361  long  currrepid; 

362  char  *  currptr; 

363  char  flieline [80] ; 

364  char  •  matdescptr,  *  matunitptr; 

365  float  matqty; 

366  int  err; 

367 

368  //  load  material  requirements  from  .MAT  file  into  MATREQ.DBF  ** 

369  strcpy (matfilename,  pdesinputdirpath) ; 

370  strcat  {matfilename,  facnumstrptr) ; 

371  strcat (matfilename,  ".MAT"); 

372  if  ((matfileptr  «  fopen (matfilename,  "r"))  !-  NULL) 

372  ( 

373  fgets (fileline,  80,  matfileptr); 

374  strto)t  (fileline,  "\"")  ; 

375  currptr  «  strtok(NULL,  "\""); 

376  currrepid  -  indxrepid  +  (atoi (currptr)  ~  1); 

377  while  (!  feof  (matfileptr) ) 

377  { 

378  strto)t(NULL,  "\"")  ; 

379  matdescptr  -  strtok (NULL,  "\”"); 

380  strtok (NULL,  "\"") ; 

381  matqty  -  atof (strtok (NULL,  "\"")); 

382  strtok (NULL,  "\"") ; 

383  matunitptr  -  strtok (NULL,  "\"")  ; 

384 

385  err  -  AddMatBec (matdescptr,  matqty,  matunitptr,  currrepid,  'N'); 

386 

387 

388  fgets (fileline,  80,  matfileptr); 

389  strtok (fileline,  "\""); 

390  currptr  »  strtok (NULL,  "\""); 

391  currrepid  -  Indxrepid  +  (atoi (currptr)  -  1); 

392  ) 

393 

394  fclose (matfileptr) ; 

395  ArchiveFile (matfilename,  ".MAT",  Indxrepid); 

396  return  (RMRSSUCCESS) ; 

397  ) 

398  else 

398  { 

399  u4error(-2,  "FILE  ACCESS  RMRSERROR’", 

400  "can't  open  .MAT  file:",  matfilename,  (char  *)  0); 

401  return  (-2) ; 

402  } 

403  } 

404 

405 

406  int  LoadRepInfo (char  *  facnumstrptr,  long  indxrepid) 

406  ( 

407  /* 

408  *  ARGUMENT 

409  *  (char  ♦)  facnumstrptr  -  pointer  to  facility  number  string  (e.g.  "B4058") 

410  *  (long)  indxrepid  -  index  repld 

411  * 

412  *  DESCRIPTION 

413  *  Loads  the  repair  information  into  REPINFO.DBF  from  the  .OUT 

414  ♦  file  specified  by  'facnumstrptr' 

415  * 

416  *  RETURNS 

417  •  (int)  error  status  code:  <  0  -  error 

418  *  -  0  -  success 

419  • 

420  *  DATABASES  AFFECTED  (whether  direct  or  indirect) 

421  *  replnfo_dbf  (no  index  used) 

422  ♦ 

423  */ 

424 

425  REPINFOREC  buffer; 

426  char  outf ilename [50] ; 

427  FILE  *  outfileptr; 

428  char  linestr[80); 

429  char  elenumstr [ 50 ] ; 
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430 

431 

432 

433 

434 

435 

436 

437 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 

448 

449 

450 

451 

452 

453 

454 

455 

456 

457 

458 

459 

460 

461 

461 

462 

463 

463 

464 

465 

466 

467 

468 

469 

470 

471 

472 

473 

474 

475 

476 

476 

477 

478 

479 

480 

481 

482 

483 

484 

485 

486 

487 

488 

489 

490 

491 

492 

493 

494 

495 

496 

497 

498 


char  remstr[80]; 
int  cnt  «  0,  err; 

//  load  facility  repair  info  from  .OUT  file  into  REPINFO.DBF  ** 

strcpy <outfilename,  pdesinputdirpath) ; //  build 

strcat (out filename,  facnumstrptr) ;  //  filename 

strcat (out  filename,  ".OUT");  H  string 

if  ((outfileptr  “  f open (outfilename,  "r"))  !“  NULL) 

{ 

//  get  facility  header  information 
SkipLines (outfileptr,  1,  linestr); 
while  (linestr [0)  !•  '_') 

SkipLines (outfileptr,  1,  linestr); 

SkipLines (out fileptr,  6,  linestr); 

ParseLine (linestr,  buffer. facfunc) ; 

SkipLines (outfileptr,  2,  linestr); 

ParseLine (linestr,  buf  fer . f aedesc)  ; 

SkipLines (outfileptr,  8,  linestr); 

//  loop  through  each  repair  report 
while  (!  feof (outfileptr) ) 

( 

buffer,  repid  >•  indxrepid  +  cnt  +  +  ; 

ParseLine (linest r,  elenumstr); 
buffer .elenum  •=  atoi  (elenumstr) ; 

SkipLl;.-;  (outfileptr,  1,  linestrj; 

ParseLine (linestr,  buf fer .eledesc) ; 

SkipLines (outfileptr,  1,  linestr); 

ParseLine (linestr,  buffer .dammode) ; 

SkipLines (outfileptr,  1,  linestr); 
strcpy (buffer .darnw,  "x"); 
strcpy (buffer. daml,  "x"); 
strcpy (buffer. damh,  "x"); 

//  compensate  for  TAB 

while  ((linestrl9]  —  'D')  ||  (linestr(2J  —  '  D' )  ) 

{ 

//  check  to  see  which  data  var  to  load 
switch  (linestr [16] ) 

{ 

case  ('W')  : 

ParseLine (linestr,  buffer. darnw) ; 
break; 

case  ('L')  ; 

ParseLine (linestr,  buf fer. daml) / 
break; 

case  ('H')  : 

ParseLine (linestr,  buffer .damh) ; 
break; 
default  :; 

) 

//  handle  case  in  which  TAB  spacing  is  used 
switch  (linestr [9]) 

( 

case  ('W')  : 

ParseLine (linestr,  buffer .darnw) ; 
break; 

case  ('L')  : 

ParseLine (linestr ,  buffer .daml) ; 
break; 

case  ('H')  ; 

ParseLine (linestr,  buffer .damh) ; 
break; 
default 
) 

SkipLines (outfileptr,  1,  linestr); 

) 

ParseLine  (linestr,  buf fer . repstgy) ; 

SkipLines (outfileptr,  1,  linestr); 

//  retrieve  remarks  entry 

//  locate  "  4.)  Remarks  :  "  line  in  .OUT  file 

while  ( (atoi (strtok (linestr,  ".")))  !“  4) 

SkipLines (outfileptr,  1,  linestr); 

SkipLines (outfileptr,  2,  linestr); 
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499 

500 

501 

502 

503 

504 

504 

505 

506 

507 

508 

509 

510 

511  // 

512  // 

513  // 

514  // 

515  // 

516  // 

517  // 

518  // 

519 

520 

521 

522 

523 

524 

525 

526 

527 

528 

529 

530 

531 

531 

532 


St rcpy (buffer, remline,  llnestr); 
trimstr (buffet . remline) ; 
st  r cpy  { remst  r ,  "  \  0  " )  ; 

//  if  non-empty  remar)t3  section,  build  text  lines 
//  into  one  continuous  string  ->  "remstr" 
while  (strlen (buffer . remline)  >  1) 

{ 

st rcat ( remst r,  buffer . remline) ; 
strcpy (buffer . remline,  "\n") ; 

SjcipLines (outfileptr,  1,  llnestr); 
strcpy (buffer . remline,  llnestr) ; 
trimstr (buffer . remline) ; 

) 

(CSS)  {  long  *memof ilestats; 

memof ilestats-m4chec)c  (f4ref  ("REMARKS") )  ; 

//  REMARKS  LOADING  IS  NOT  OPERATIONAL:  will  fix  soon 
(  int  i; 

for (i=0;i<-5;i++) 

vatputf (win, 4, 1+ (6*i) , "<%ld>", * (raemofllestats+ (i*sizeof (long) ) ) ) ; 

} 


err  “  AddRepInfoRec (S  buffer); 

while  ((linestr[01  I-  '_')  &&  (!  feof (outf lleptr) ) ) 

SlcipLlnes  (outfileptr,  1,  llnestr); 
if  (!  feof (outflleptr) ) 

SliipLlnes  (outf  lleptr,  8,  llnestr); 

) 

fclose (outflleptr) ; 

ArchiveFile (outfilename,  ".OUT",  indxrepid) ; 
return  (RMRSSUCCESS) ; 

) 

else 

V 

u4ertor(-3,  "FILE  ACCESS  HMRSERRORI",  "can't  open  .OUT  file:",  outfilename, 


t 

533  return  (-3) ; 

534  } 

535  ) 

536 

537  void  ArchiveFile (char  *  oldfilename,  char  *  fileext,  long  indxrepid) 

537  { 

538  /* 

539  *  ARGUMENT 

540  *  (char  *)  oldfilename  -  present  path-specified  filename 

541  *  (char  »)  fileext  -  filename  extension 

542  *  (long)  indxrepid  -  index  repair  id  (unique  for  each  file  set) 

543  * 

544  *  DESCRIPTION 

545  *  Transfers  a  RMRS-loaded  file  from  the  PDES  Input  directory  to 

546  *  the  PDES  Archive  directory;  the  new  file  gets  the  prefix  "ARF" 

547  *  (for  Archived  Repair  File)  followed  by  the  reference  repair  id  number 

548  *  (left  zero-padded  to  5  digits)  corresponding  to  the  first  repair  in  the 

549  *  file  set;  for  example,  if  the  file  set  designated  B4058  was  loaded,  and 

550  *  the  first  repair  from  that  set  was  mapped  to  repair  id  #303,  then  the 

551  *  corresponding  archived  files  would  be  named:  ARF00303 .EQP,  ARF00303 . MAT, 

552  *  and  ARF00303.0UT 

553  * 

554  *  RETURNS 

555  * 

556  *  NOTES 

557  *  (int)  interrupt  56H  status  codes  ;  3  -  Path  not  found 

558  *  5  -  Access  denied 

559  *  17  -  Path  not  found 

560  * 

561  *  DATABASES  AFFECTED  (whether  direct  or  indirect) 

562  *  none 

563  * 

564  */ 

565  char  archivefilename [50] ,  str[25],  errmess[50]; 

566  int  status,  len,  1; 

567 

568  vatputf (win,  4,  2  +  fileloadcnt++,  "*") ; 


(char  »)  0) 
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569 

570 

571 

572 

573 

574 

575 

576 

577 

578 

579 

580 

581 

582 

583 

584 

584 

585 

585 

586 

587 

588 

589 

590 

591 

592 

593 

594 

595 

596 

597 

598 

599 

600 

601  int  AddEqpRec (EQPREQREC  eqprocbuf) 

601  ( 

602  /• 

603  •  ARGUMENT 

604  *  (EQPREQREC)  eqprecbuf  -  equipment  requirement  record  buffer 

605  • 

606  »  DESCRIPTION 

607  *  Populates  an  equipment  requirement  record  and  appends  it  to  the 

608  *  EQPREQ.DBF  database 

609  * 

610  *  RETURNS 

611  *  (int)  d4append()  return  status  code 

612  * 

613  *  DATABASES  AFFECTED  (whether  direct  or  indirect) 

614  *  eqpreq_dbf  (no  index  used) 

615  * 

616  */ 

617  d4select {eqpreq_dbf ) ; 

618  f4r_long{f4ref ("EQPID") ,  OL); 

619  f4t_str (f4ref ("EQPDESC") ,  eqprecbuf .eqpdescstr) ; 

620  f4r_long(f4ref ("START") ,  OL)  ; 

621  f4r_long (f4ref ("DURATION") ,  eqprecbuf .duration) ; 

622  f4r_long (f 4ref ("REPID") ,  eqprecbuf .repid) ; 

623  f4r_char (f4ref ("STATUS") ,  eqprecbuf . status) ; 

624  return  (d4append() ) ; 

625  ) 

626 

627 

628  int  AddMatRec (char  *  matdescptr,  float  matqty,  char  *  matunitptr,  long  repid,  char  status) 
628  ( 

629  /* 

630  *  ARGUMENT 

631  *  (MATREQREC)  matrecbuf  -  material  requirement  record  buffer 

632  * 

633  *  DESCRIPTION 

634  *  Populates  a  material  recjuirement  record  and  appends  it  to  the 

635  *  MATREQ.DBF  database 

636  » 

637  *  RETURNS 

638  •  (int)  d4append()  return  status  code 


strcpy  (archivef ilename,  pdesarchvdirpath) ; 
street (arch! vefiloname,  "ARF"); 

//  convert  indxrepid  to  ascii  and  pad  left  with  zeros 

Itoa (indxrepid,  str,  10); 

len  •*  strlen  (str) ; 

for  (i  -  1;  1  <«  len;  i++) 

str [5  -  ij  -  str [len  -  i) ; 
for  (i  -  0;  i  <-  (4  -  len)  ;  1++) 
str[i]  -  'O'; 
str [51  -  '\0'; 

streat (archlvefilename,  str); 

street (archivef Ilename,  fileext) ; 

status  -  move_flle (oldfilename,  archlvefilename); 

if  (status) 

{ 

switch  (status) 

{ 

case  (3)  : 

case  (17)  :  strcpy (errmess,  "Path  rot  found"); 
case  (5)  :  strcpy (errmess,  "Access  denied"); 
default  ;  strcpy (errmess,  "Undefined  error”); 

) 

u4error (status,  "File  archive  error" 

,  errmess 

tl  14 
f 

,  oldfilename 

,  archlvefilename,  (char  *)  0); 

) 

return; 
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639  » 

640  *  DATABASES  AFFECTED  (whether  direct  or  indirect) 

641  *  matreqdbf  (no  index  used) 

642  * 

643  */ 

644 

645  II  add  material  requirement  record  to  MATREQ.DBF 

646  d4select (matreq_dbf ) ; 

647  f4r_long(f4ref ("MATID"),  0) ; 

648  f4r_str (f4ref ("MATDESC") ,  matdescptr); 

649  f4r_double(f4ref ("OTT"),  matqty); 

650  f4r_str (f4ref ("UNIT")  ,  matunitptr) ; 

651  f4r_long(f4ref ("REPID"),  repid) ; 

652  f4r_char (f4ref ("STATUS") ,  status); 

653  return  (d4append() ) ; 

654  > 

655 

656 

657  int  AddRepInfoBec (REPINFOREC  *  rec) 

657  { 

658  /* 

659  *  ARGUMENT 

660  *  (REPINFOREC)  repinforecbuf  -  repair  Information  record  buffer 

661  * 

662  *  DESCRIPTION 

663  *  Populates  a  repair  information  record  and  appends  it  to  the 

664  *  REPINFO.DBF  database 

665  * 

666  *  RETURNS 

667  *  (int)  d4append()  return  status  code 

668  * 

669  *  DATABASES  AFFECTED  (whether  direct  or  indirect) 

670  *  repinfo  dbf  (no  index  used) 

671  * 

672  */ 

673 

674  //  add  repair  .OUT  file  info  record  to  REPINFO.DBF 

675  d4select (repinfo  dbf ) ; 

676  f4r_long(f4ref ("REPID"),  rec->repid) ; 

677  f4r_3tr(f4ref ("FACFUNC") ,  rec->facfunc) ; 

678  f4r_str (f4ref ("FACDESC") ,  rec->facdesc) ; 

679  f4r_int (f4ref ("ELENUM") ,  rec->elenum) ; 

680  f4r  str  (f4ref  ("E^jEDESC")  ,  rec->eledesc)  ; 

681  f4r"str(f4ref ("DAMMODE") ,  rec->dammode) ; 

682  f4r_str (f4ref ("DAMW") ,  rec->damw) ; 

683  f4r_5tr (f4ref ("DAML") ,  rec->daml) ; 

684  f4r_str (f4ref ("DAMH") ,  rec->damh) ; 

685  f 4r_str (f4ref ("REPSTGY") ,  rec->tepstgy ) ; 

686  fifdef  DEBUG 

687  (CSS)  printf ("\nnumber  written  >%d<",m4write (f4ref ("REMARKS") ,d4recno {) ,  rec->remllne, 80) ) ; 

688  tendlf 

689 

690  return  (d4append() ) ; 

691  ) 

692 

693  int  S)cipLines (FILE  *  fptr,  int  numofiines,  char  *  returnline) 

693  { 

694  /• 

695  *  ARGUMENT 

696  *  (FILE  *)  fptr  -  file  pointer 

697  *  (int)  numofiines  -  number  of  lines  to  s)clp 

698  *  (char*)  returnline  -  string  containing  current  line  of  file 

699  * 

700  *  DESCRIPTION 

701  »  Slcips  the  specified  number  of  lines  in  the  specified  file  and 

702  •  returns  the  current  line 

703  * 

704  •  RETURNS 

705  •  (int)  status  code 

706  • 

707  *  DATABASES  AFFECTED 

708  *  none 

709  * 

710  */ 
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711  int  i; 

712 

713  for  (i  -  1;  i  <-  numoflines;  i++) 

714  fgets  (returnline,  80,  fptr)  ,* 

715  return  (1)  ; 

716  i 

717 

718  void  ParseLine (char  *  linestr,  char  *  returnstr) 

718  { 

719  /* 

^70  *  ARGUMENT 

721  *  (char  *)  linestr  -  line  to  be  parsed 

722  *  (char  *)  returi.str  -  return  string 

723  * 

724  *  DESCRIPTION 

725  *  Parses  data  lines  within  .OUT  text  file 

726  * 

727  *  RETURNS 

728  * 

729  *  DATABASES  AFFECTED 

730  *  none 

731  * 

732  */ 

733  strtoh (linestr, 

734  strcpy (returnstr,  strtok (NOLL,  "\n")); 

735  ) 

736 

737  long  HrToSec (float  hours) 

737  { 

738  /* 

739  *  ARGUMENT 

740  *  (float)  hours  -  hours  value  to  convert 

741  * 

742  *  DESCRIPTION 

743  *  Converts  hours  to  seconds 

744  * 

745  *  RETURNS 

746  *  (long)  number  of  seconds 

747  * 

748  */ 

749  return  ((long)  (hours  *  3600.0)); 

750  ) 

751 

752  int  TryResAlloc (void) 

752  ( 

753  /* 

754  *  ARGUMENT 

755  * 

756  *  DESCRIPTION 

757  *  Prioritizes  (N)ew  and  (O)verriden  repairs,  analyzes  overall 

758  *  resource  availability  for  each  repair,  and  acts  appropriately 

759  *  according  to  the  results  of  the  analysis.  Thus,  materials  are 

760  *  allocated  to  the  repair  if  no  conflicts  persist. 

761  * 

762  *  Equipment  conflicts  result  in  (X) cancel-ation  of  repair. 

763  *  Compromise  mode  is  available  for  a  repair  with  only  material 

764  *  conflicts,  otherwise  those  repair  is  (S)u3pended. 

765  * 

766  *  RETURNS 

767  *  (int)  status  code 

768  * 

769  *  DATABASES  AFFECTED  (whether  direct  or  Indirect) 

770  *  repair__dbf  (repair_ndxl  -  REPID  index  )  -  d43eelc  used 

771  *  (repair_ndx2  -  prioritized  index  )  -  d4skip  used 

772  *  eqpsup_dbf  (eqpsup_ndxl  -  EQPDESC  Index  )  -  d4see)c  used 

773  *  eqpreq_dbf  (eqpreq_ndxl  -  REPID  index  )  -  d4see)c,  d4s)clp  used 

774  *  matsup_dbf  (mat3up_ndxl  -  MATDESC  index  )  -  d4seeh  used 

775  *  (matsup_ndx2  -  MATID  index  )  -  (CSS)  to  be  added 

776  *  matreq_dbf  (matreq_ndxl  -  REPID  index  )  -  d4seek,  d4skip  used 

777  *  matreq_dbf  (matreq_ndx2  -  MATID  index  )  -  d4see)c,  d4skip  used 

778  * 

779  */ 

780 

781  long  curr; 


96 


PROCAUTO.C 


Tuesday,  January  14,  1992 


Page  12 


782  char  eqpdescstr £26] ,  matdescstr £26) ,  repstatus; 

783  REQLSTNODE  *  reqchklst,  *  lastnode; 

784  float  matqtyneeded,  matqtyavall; 

785  long  matld,  ovrdrecno; 

786  int  status; 

787  CONTEXT  defl,  def2; 

788 

789  vatputs (win,  2,  2,  "Allocating  material  resources  to  repairs..."); 

790 

791 

792  //  Index  REPAIR. DBF  for  searching  on  "REPI0” 

793  //  Used  in  GetRepairPrty ()  to  retrieve  priority 

794  d4select (repair_dbf ) ; 

795  repair_ndxl  i4open ("REPRNDXl") ; 

796  if  {repair_ndxl  <  0) 

796  ( 

797  u4error<-99,  "repalr_ndxl",  (char  *)  0) ; 

798  ) 

799  //  Index  REPAIR. DBF  for  sequencing  through  (N)ew  repairs 

800  repair_ndx2  -  i4open <"REPRNDX2") ; 

801  if  (repair_ndx2  <  0) 

801  { 

802  u4error(-99,  "repair  ndx2", (char  *)  0) ; 

803  ) 

804 

805  //  index  EQPSUPP.DBF  for  searching  on  "EQPDESC" 

806  //  used  for  locating  equipment  requirement  pieces  In  Air  Base  supply 

807  d4select (eqpsup_dbf ) ; 

808  eqpsup_ndxl  -  14open ("EQSUNDXl") ; 

809  if  (eqpsup_ndxl  <  0) 

809  { 

810  u4error(-99,  "eqp3up_ndxl",  (char  *)  0); 

311  ) 

812 

813  //  index  EQPREQ.DBF  for  searching  on  "REPID" 

814  //  used  to  find  all  equipment  requirements  for  a  repair 

815  d4select (eqpreq_dbf) ; 

816  eqpreq_ndxl  -  14open ("EQRENDXl") ; 

817  if  (eqpreq_ndxl  <  0) 

817  { 

818  u4error(-99,  "eqpreq_ndxl",  (char  *)  0); 

819  ) 

820 

821  II  index  MATSUPP.DBF  for  searching  on  "MATDESC" 

822  //  used  for  locating  material  requirement  pieces  in  Air  Base  supply 

823  d4select (matsup_dbf) ; 

824  matsup_ndxl  =  i4open ("MASUNDXl") ; 

825  if  (matsup_ndxl  <  0) 

825  { 

826  u4error(-99,  "matsup_ndxl'',  (cnar  *j  0); 

827  } 

828  //  NOTICE:  this  index  file  must  be  added  (CS  12/30) 

829  //  index  MATSUPP.DBF  for  searching  on  "MATID" 

830  //  used  for  in  AllocMatsO  for  for  finding  material  listing  in  supply 

831  //  matsup_ndx2  -  i4open ("MASUNDX2") ; 

832  //  if  (maLsup_r.dx2  <0)  { 

833  //  u4error (-99, "matsup_ndx2", (chat  *>0); 

834  //  ) 

835 

836  //  index  MATREQ.DBF  for  searching  on  "REPID" 

837  //  used  to  find  all  material  requirements  for  a  repair 

838  d4select {matreq_dbf ) ; 

839  matreq_ndxl  -  i4open ("MARENDXl") ; 

840  if  (matreq_ndxl  <  0) 

840  ( 

841  u4error(-99,  "matreq_ndxl", (char  *)  0) ; 

842  } 

843  //  index  MATREQ.DBF  for  searching  on  "MATID” 

844  //  used  to  search  all  instances  of  a  particular  material  type 

845  //  for  priority-override  candidates 

846  matreq_ndx2  -  i4open ("MARENDX2") ; 

847  if  (matreq_ndx2  <  0) 

847  ( 

848  u4error(-99,  "matreq_ndx2", (char  *)  0) ; 
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849 

850 

851 

852 
85  3 

854 

855 

856 
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858 

859 

860 
861 
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863  // 

864  // 

865  1/ 

866  // 
867 

867 

868 
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870 

871 

872 
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874 

874 

875 

876 

877 

878 

879 

880 
881 
882 

883 

884 

885 

886 

887 

888 

889 

890 

891 

892 

893 

893 

894 

895 

896 

897 

897 

898 

899 

900 

901 

902 

903 

904 

905 

906 

907 

908 

909 

910 

911 

911 

912 

912 

913 

914 

915 


) 

//  create  and  init  data  structure  for  resource  requirements  check  list 

reqchklst  -  (REQLSTNODE  *)  malloc (sizeof  (REQLSTNODE) ) ; 

reqchklst->type  -  'H'; 

reqchklst->recno  -  0; 

reqchklst->avail3tatus  «  'X'; 

reqchklst->next  -  (REQLSTNODE  *)  NULL; 

lastnode  -  reqchklst; 

//  PROCESS  ALL  (:’>  EW  REPAIRS 
d4select {repair_dbf ) ; 
d4top  0 ; 

repstatus  -  f4char If 4ref ("STATUS") ) ; 
x41ist  ()  ; 
getkey  ( ) ; 
exit  (0)  ; 

while  (( (repstatua-f4ohar (f4ref ("STATUS”) ) )  --  'N')  II  (repstatus  --  '0'))  ( 
while  ((repstatus  «  f4char (f4ref ("STATUS") ) )  --  'N') 

( 

curr  -  f41ong(f4ref ("REPID")) ; 

//  CHECK  EQP  REQUIREMENTS  FOR  AVAILABILITY 
d4select (eqpreq_dbf) ; 
i4select  (eqpreq_f!dxl)  ; 
if  (d4seek_double (curr)  —  FOUND) 

( 

while  ( (f41ong(f4ref ("REPID") ) )  —  curr) 

( 


//  create  check  list  node  for  eqp  req 

lastnode->next  -  (REQLSTNODE  »)  malloc (sizeof  (REQLSTNODE)); 

lastnode  -  la3tnode->next; 

lastnode->type  -  'E'; 

lastnode->recno  -  d4recno(); 

lastnode->availstatu3  «  'x'; 

la3tnode->resreeno  -  0; 

lastnode->resqty  -  0.0; 

lastnode->ovrd  ”  FALSE; 

lastnode->next  -  (REQLSTNODE  •)  NULL; 

//  search  EQPSUPP.DBF  for  eqp  piece 

strcpy (eqpdescstr,  f4str (f 4ref ("EQPDESC") ) ) ; 

d4select (eqpsup_dbf ) ; 

i4select (eqpsup_ndxl) ; 

uppercase (eqpdescstr) ; 

status  -  d43eek_3tr (eqpdescstr) ; 

if  (status  —  FOUND) 

{ 

//  leave  marked  as  (N)ew  (in  EQPREQ.DBF) 
lastnode->awail3tatu3  «  'F'; 

) 

else 

{ 

//  mark  as  (M)issing  (in  EQPREQ.DBF) 
lastnode->avail3tatU3  -  'M'; 
d4select (eqpreq^dbf) ; 
f 4r_char (f4ref ("STATUS") ,  'M' ) ; 

) 

d4select (eqpreq_dbf ) ; 
d4skip(l) ; 

} 

) 

//  CHECK  MAT  REQUIREMENTS  FOR  AVAILABILITY 
d4select (matreq_dbf) ; 
i4select (matreq_ndxl)  ; 
if  (d4seek_double (curr)  —  FOUND) 

{ 

while  ( (f41ong(f4ref ("REPID") ) )  —  curr) 

{ 

la3tnode->next  -  (REQLSTNODE  *)  malloc  (sizeof  (REQLSTNODE)); 
lastnode  ”  lastnode->next; 
lastnode->type  «  'M'; 
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916 

917 

918 

919 

920 

921 

922 

923 

924 

925 

926 

927 

928 

929 

929 

930 

931 

932 

933 

934 

935 

935 

936 

937 

938 

938 

939 

940 

941 

942 

943 

944 

945 

946 

947 

947 

948 

949 

950 

951 

952 

953 

954 

955 

956 

957 

958 

958 

959 

960 

961 

962 

963 

964 

965 

965 

966 

967 

968 

969 

970 

971 

971 

972 

973 

973 

974 

975  // 
97  6 

977 

978 

978 

979 

980 


lastnodG->recf -1  -  d4recnoO; 
lastnode->avail3tatus  -  'x'; 
lastnode->re3rBcno  -  0; 
iastnode->rasqty  -  0.0; 
lastnode->ovrd  -  FALSE; 
lastnode->next  -  (REQLSTNODE  *)  NULL; 
matqtyneeded  -  f4dout.  vf  4ref  ("QTY") ) ; 

//  search  MATSUPP.DPF  for  material 

strcpy  (matdescstr,  i:4str  (f  4ref  r'MATDESC”) )  ); 

d4 select  (mat  su^  jsf)  ; 

i 4 select (m3t3up_ndxl) ; 

uppercase (matdescstr) ; 

status  «  d4seek_str (matdescstr) ; 

if  'status  —  FOUND) 

/ 

matid  -  f 41onq ( f 4 ref  ("MATID")  )  .- 
matqtyavail  -  f4double (f4rGf ("QTY") ) ; 
d4select (matroq_dbf) ; 
f4r_long (f4ref ("MATID") ,  matid); 
d4write (d4recno () ) ; 
if  (matqtyavail  >-  matqtyneeded) 

{ 

lastnode->availstatus  »  'E'; 

) 

else 

( 

d4selGct (repalr_dbf) ; 
context_save (&  defl) ; 
d4 select (matreq_dbf ) ; 
context_save (t  def2) ; 

/*  (I)nadequate  supply  to  meet  needs,  checic  override  pass  */ 
ovrdrecno  -  Ch)cOvrdPoss  (matid,  (matqtyncoded  -  matqtyavail), 
context_restore (t  defl); 
context_restorG (4  def2) ; 
if  (ovrdrecno) 

{ 

//  (O)verride  is  possible,  save  record  number 
lastnode->avallstatus  -  'O'; 
lastnode->resrecno  »■  ovrdrecno; 

) 

//  (I)nadequate  quantity  in  AB  material  supply 
else 

lastnode->avalistatus  »  'I'; 

) 

) 

//  matching  entry  not  found  in  AB  mat  supply:  (M) issing 
else 


lastnode->availstatus  -  'M'; 

) 

d43Glect (matreq_dbf ) ; 
d4s)tip(l)  ; 

) 

) 

else 

{ 

//no  materials  associated  with  repair 

) 


//  see  if  any  resource  conflicts  arose 
if  (AnyConflicts  (rGqch)il3t) ) 

{ 

/•  chec)t  to  see  if  one  was  an  equipment  conflict  */ 
if  (iseqpconf  (reqchjilst) ) 

{ 

/*  notify  user  compromise  not  possible  4  cancel  repair  */ 
alerttoeqpconf 0 ;  //  (CSS)  to  be  added 

setrepairstatus (XCANCEL,  curr) ; 

) 

else 

( 

/*  as)c  user  if  he  would  lllce  to  attempt  a  compromise  */ 

/*  to  resolve  material  conflicts  */ 


curr)  ; 
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If  (askcompO) 

( 

deselect (repair_dbf) ; 
i43elect (repalr_ndx2) ; 
cof)tBxt_save  (&  def  1) ; 

if  {DoCompron'ise  (curr,  reqchklst)  =—  SUCCESS) 

i 

AllocMatla {reqchklst,  curr); 

/*  leave  eqp  reqs  marked  (N)ew  */ 


/•  unsuccesful  compromise  attempt  */ 
setrepairstatus (SUSPEND,  curr); 

) 

context  restore (i  defl); 


/*  user  chose  not  to  attempt  compromise  at  this  time  */ 
setrepairstatus (SUSPEND,  curr) ; 


AllocMatls (reachklst,  curr); 

/•  leave  eqp  reqs  marked  (N)ew  */ 


//  get  next  repair 
d4select (repair_dbf) ; 
d4top() ; 
d4top  0 ; 

ClearChkLst (reqchklst)  ; 
iastnode  •  reqchklst; 

) 

free ( (REQLSTNODE  »)  reqchklst); 
d4close_ail () ; 

return  (1)  ; 


//  this  redundant  fun-tion  call  is  not  a  mistake 


long  ChkOvrdPoss (long  matid,  float  matqtyneeded,  long  repld) 


ARGUMENT 

(long) 

(float) 

(long) 


matqtyneeded  - 
repid  - 


RMRS  system-assigned  material  id  number 

of  mat  resource  under  conflict 

quantity  of  material  needed  by  the  conflicting 

material  requirement 

RMRS  system  assigned  repair  id  of  repair  to 
which  the  conflicting  mat  requirement  belongs 


DESCRIPTION 

This  function  searches  through  the  (A) llocated  material  records 
corresponding  to  'matid'  in  an  attempt  to  find  the  lowest  priority 
repair  that  is  holding  the  least  qty  of  sufficient  resources  to 
statisfy  the  particular  conflicting  material  need  of  the  higher  priority 
repair  specified  by  'rapid'.  If  one  is  found,  the  corresponding  record 
number  is  returned.  Otherwise,  zero  is  returned. 


RETURNS 
(long)  n 


record  number  of  priority  override  candidate 

NOTE:  This  is  the  record  number  of  the  material  requirement 

record  in  the  MATREQ.DBF  from  which  the  materials  will 

be  taken. 

none  found 


*  Databases  affected 

»  repairdbf  (repair_ndxl  -  REPID  index)  -  d4seek  used 

*  matreq_dbf  (matreq_ndx2  -  MATID  index)  -  d4seek,  d4sklp  used 
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1049 

1050 

1051 

1052 

1053 

1054 

1055 

1056 

1057 

1058 

1059 

1060 
1061 
1062 

1063 

1064 

1065 

1066 

1067 

1068 

1069 

1070 

1071 

1071 

1072 

1073 

1074 

1075 

1076 

1077 

1077 

1078 

1079 

1080 
1080 
1081 
1082 

1083 

1084 

1085 

1086 

1087 

1088 
1089 

1089 

1090 

1091 

1092 

1093 

1094 

1095 

1096 

1097 

1098 

1098 

1099 

1100 
1101 
1102 
1103 

1103 

1104 

1105 

1106 

1107 

1108 

1109 

1110 
1111 
1112 

1113 

1114 

1115 

1116 


long  same,  seirecno  »  OL,  xrecno,  xrepid,  xmatld; 

int  minprty,  xprty,  flgprcy; 

char  xstatus; 

float  xqty,  currminqty; 

//  Get  priority  of  the  conflict-owning  repair 
flgprty  -  GetRepairPrty (repld) ; 
minprty  -  flgprty; 

//  MATREQ.DBF:  indexed  on  "MATID" 
d4select (mat  req_dbf ) ; 
i4select (matreq_ndx2) ; 

//  this  index  file  groups  like  materials  together,  so  find  first 

//  and  skip  sequentially  through  the  list 

same  «  mat id; 

d4seek_double (matid) ; 

d4recno  < ) ; 

xmatid  -  f 41ong (f4ref ("MATID") ) ; 

//  check  all  matching  (A)llocated  material  records  for 
//  quantity  available  and  associated  priority 
//  NOTE:  vars  w/  prefix  'x'  hold  data  belonging  to  current 
II  mat  requirement  under  scrutiny 

do 
( 

xstatus  =  f4char(f4ref ("STATUS")); 
xqty  -  f4double(f4ref ("QTY")) ; 
xrepid  -  f41ong<f4ref ("REPID") ); 
xrecno  ”  d4recno(); 
xprty  ”  GetRepairPrty (xrepid) ; 
if  (xstatus  ««  ' A’  ) 

{ 

//  does  this  mat  req  belong  to  a  repair  with  a  LOWER  priority 
//  (higher  number)  and  does  the  it  have  at  least  the  qty  needed  ?? 
if  ((xprty  >  minprty)  &&  (xqty  >«  matqtyneeded) ) 

( 

minprty  -  xprty; 
currminqty  -  xqty; 
seirecno  =•  xrecno; 

) 

//  does  this  mat  req  belong  to  a  repair  with  the  SAME  priority 
//  as  the  current  minimum  selected  mat  req  and  does  the  it  have  a 
//  LOWER  qty  than  the  current  minimum  selected  mat  req 
else  if  ((xprty  =”  minprty)  &&  (xprty  flgprty)  && 

(xqty  >»  matqtyneeded)  &&  (xqty  <  currminqty) ) 

( 

currminqty  »  xqty; 
seirecno  -  xrecno; 

} 

> 

d4select (matreq_dbf) ; 

14select {matreq_ndx2)  ; 
d4skip  (1)  ; 

xmatld  =  f41ong(f4ref ("MATID")); 

) 

while  ((xmatid  =»  same)  &&  (!  d4eof 0 ) ) ; 

return  (seirecno);  /*  return  subordinate  matreq  record  number,  0  for  none*/ 

) 

int  AnyConfliots (REQLSTNODE  *  Istptr) 

( 

/* 

•  ARGUMENT 

•  (REQLSTNODE  *)  Istptr  -  pointer  Co  resource  availability  analysis  list 

• 

*  DESCRIPTION 

*  Checks  the  completed  resource  availability  analysis  list  for  any 

*  conflicts. 

* 

*  Non-conflict  statuses:  for  equipment  ....  (F)ound 

*  for  material .  (E)xistent 

* 

*  note:  this  availability  status  refers  to  the  codes  used  in  the 

*  resource  availability  analysis  linked  list  and  not  the  STATUS  fields 
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1117  *  used  in  the  databases 

1118  * 

1119  •  RETURNS 

1120  *  (int)  number  of  resource  availability  conflicts  for  the  repair 

1121  * 

1122  *  DATABASES  AFFECTED 

1123  *  none 

1124  •/ 

1125 

1126  int  numof conflicts; 

1127 

1128  numofconflicts  -  0; 

1129  while  (lstptr->next  !-  (REQLSTNODE  •)  NULL) 

1129  { 

1130  Istptr  lstptr->next; 

1131  switch  <lstptr->avall3tatus) 

1131  { 

1132  case  ('F')  ; 

1133  case  ('E')  :  brea)c; 

1134  default  : 

1135  nuinofconfllcL3+  +  ; 

1136  ) 

1137  } 

1138  return  (numofconflicts); 

1139  } 

1140 

1141  void  ClearChkLst (REQLSTNODE  *  Istptr) 

1141  { 

1142  /* 

1143  *  ARGUMENT 

1144  *  (REQLSTNODE  *)  Istptr  -  pointer  to  resource  availability  analysis  list 

1145  * 

1146  *  DESCRIPTION 

1147  *  Clears  list,  leaves  headnode 

1148  * 

1149  *  RETURNS 

1150  * 

1151  *  DATABASES  AFFECTED 

1152  *  none 

1153  * 

1154  •/ 

1155 

1156  REQLSTNODE  *  temp; 

1157 

1158  temp  =  Istptr; 

1159  Istptr  =  lstptr->next; 

1160  temp->next  »  (REQLSTNODE  *)  NULL; 

1161  while  (Istptr  !-  (REQLSTNODE  *)  NULL) 

1161  ( 

1162  temp  -  lstptr->next; 

1163  l3tptr->next  -  (REQLSTNODE  *)  NULL; 

1164  free ( (REQLSTNODE  *)  Istptr); 

1165  Istptr  -  temp; 

1166  ) 

1167  ) 

1168 

1169  void  PrintChkLst (REQLSTNODE  *  Istptr) 

1169  { 

1170  /• 

1171  *  ARGUMENT 

1172  *  (REQLSTNODE  *)  Istptr  -  pointer  to  resource  availability  analysis  list 

1173  * 

1174  »  DESCRIPTION 

1175  *  Prints  list  to  stdout,  used  for  debug 

1176  * 

1177  *  RETURNS 

1178  * 

1179  »  DATABASES  AFFECTED 

1180  *  none 

1181  * 

1182  */ 

1183 

1184  printf ("\n") ; 

1185  while  (Istptr  !-  (REQLSTNODE  ‘)  NULL) 
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1185 

1186 

1187 

1188 

1189 

1190 

1191 

1192 

1192 

1193 

1194 

1195 

1196 

1197 

1198 

1199 

1200 
1201 
1202 

1203 

1204 

1205 

1206 

1207 

1208 

1209 

1210 
1211 
1211 
1212 
1213 

1213 

1214 

1215 

1216 
1216 

1217 

1218 
1218 

1219 

1220 
1221 
1222 
1222 

1223 

1224 

1225 

1226 

1227 

1228 

1229 

1230 


printf ("\n  TYPE  «  >%c<  recno  «  >%d<  ",  lstptr->type,  lstptr->recno) ; 
printf<”  AVAILSTATUS  -  >*c<",  lstptr->availstatus) ; 

Istptr  -  lstptr->next; 


} 


int  AllocMatls (REQLSTNODE  *  Istptr,  long  repld) 

( 

/* 

*  ARGUMENT 

*  (REQLSTNODE  *)  Istptr  -  pointer  to  resource  availability  analysis  list 

*  (long)  rapid  -  repair  id 

* 

»  DESCRIPTION 

*  Allocates  materials  according  to  allocation  condition  information 

*  within  the  resource  availability  analysis  list 


*  RETURNS 

•  (int) 


status 


*/ 


long  matid,  xmatid,  xrepld,  smatid; 
char  smatdesc[30] ,  sunit[5]; 
float  qntyneeded,  xqty,  sqty; 

//  loop  until  no  more  materials  left  to  allocate 
while  (lstptr->next  !-  (REQLSTNODE  *)  NOLL) 

{ 

Istptr  =*  lstptr->next; 
switch  (Istptr- >type) 

( 

case  ('M')  : 

/*  PRIORITY  OVERRIDE  CASE  •/ 

if  ( (lstptr->availstatus  <•»  'O')  &i  (lstptr->ovrd 


TRUE) ) 


( 


/*  DUMP  MATERIALS  OF  OVERRIDEN  REPAIR  BACK  INTO  SUPPLY  */ 
if  (d4select (matreq_dbf)  <  0) 

( 

u4ertor(-l,  (char  *)  0); 

return  (RMRSERROR) ; 

> 

if  (i4select  (matreq_ndxl)  <  0) 

( 

u4error(-2,  (char  *)  0); 

return  (RMRSERROR); 

) 

d4go (lstptr->resrecno) ; 
xrepid  -  f41ong(f4ref ("REPID") ) ; 
d4top  0 ; 

if  (d43e6lc_doufale  (xrepid) ) 

u4error (-9999,  "SEEK  REPID  RMRSERROR",  "repld  not  found". 


rials",  (char  *)  0)  ; 

1231 

1232 
1232 
-233 

1234 

1235 

1236 

1236 

1237 

1238 

1239 

1240 

1241 

1242  /• 

1243  /* 

1244 

1245 

1246 

1247 

1248 
1248 


//  skip  sequentially  through  mat  reqs  for  subordinate  repair 
while  ((f41onq(f4ref ("REPID"))  xrepid)  &&  C  d4eof())) 

{ 

xmatid  =■  f  41ong(f4tef  ("MATID")); 
xqty  “  f 4double (f 4ref ("QTY") ) ; 

//  search  material  supply  on  MATID 
if  (d43olect (matsup_dbf)  <  0) 

( 

u4error(-3,  "", (char  *)  0); 
return  (RMRSERROR) ; 

) 

i4select  (-1) ;  //  to  be  replaced  (CSS) 

d4top();  //  to  be  replaced  (CSS) 

i4select (matsup_ndx2) ; */  /*  to  be  indexed  on  MATID  (CSS)*/ 
d4seek_double (xmatid) ; */  /*  SS(CSS)  */ 

while  ((xmatid  !-  f41ong (f4ref ("MATID") ) )  Si ( !  d4eof())) 
d4skip  (1); 

f4t_double (f4ref ("QTY") , (double)  (f4double (f4ref ("QTY") ) 
d4write  (d4recno  ()  )  ; 
if  (d4select (matreq_dbf)  <  0) 

{ 


"FN:  AllocateMate 


xqty)  )  ; 
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1249 

1250 

1251 

1252 

1252 

1253 

1254 

1255 

1256 

1257 

1258 

1259 

1260 
1261 
1262 
1262 

1263 

1264 

1265 

1266 

1267 

1268 

1269 

1270 

1271 

1272 

1273 

1274 

1275 

1276 

1277 

1278 

1279 

1280 
1231 
1282 

1283 

1284 

1285 

1286 

1287 

1288 

1289 

1290 

1291 

1292 

1293 

1294 

1295 

1296 

1297 

1298 

1299 

1300 

1301 

1302 

1303 

1304 

1305 

1306 

1307 

1308 

1309 

1309 

1310 

1311 

1312 

1313 

1314 

1315 

1316 

1316 

1317 

1318 


/* 

/* 


} 

if 

( 


) 


u4error(-5,  (char  *)  0); 
return  <RMRSERROR) ; 

(i43elect (matreg_ndxl)  <  0) 

*)  0); 


u4error(-6,  (char 
return  (RMRSERROR)  ; 


d4sklp (1) ; 

) 

/•  SET  AVAIL  STATUS  TO  'O'  (OVERRIDEN)  */ 
setrepairstatus (OVERRIDE,  xrepid) ; 

} 

//  MATERIAL  SUBSTITUTION  CASE 

else  if  ( (lstptr->ovrd  —  FALSE)  {l3tptr->availstatu3 
{ 


'E')) 


} 

// 

/• 


/*  SUBSTITUTION  OF  MATERIAL  for  conflicting  requirement  */ 

/*  get  mat  info  for  substitute  */ 

d4  select (matsup_dbf ) ; 

d4go (Istptr-^resrecno) ; 

sqty  -  lstptr->resqty; 

smatid  -  f41ong(f4ref("MATID")); 

strcpy (smatdesc,  f43tr (f4ref ("MATDESC") ) ) ; 

strcpy (sunit,  f4atr (f 4ref ("UNIT") ) ) ; 

/*  replace  matreq  with  the  substitution  material  */ 

d4select (matreq_dbf ) ; 

d4go (l3tptr->recno) ; 

f 4r_long (f 4ref ("MATID") ,  smatid) ; 

f4r_3tr (f4ref ("MATDESC") ,  smatdesc) ; 

f4r_double (f4ref ("QTY"; ,  sqty); 

f4r_str (f4ref ("UNIT") ,  sunit); 

d4write (lstptr->recno) ; 


case 
default 


} 


non-conflicting  material  requirements  begin  execution  here 
ALLOCATE  MATERIALS  FROM  SUPPLY  AS  USUAL  */ 
d4select (matreq_dbf ) ; 
d4go (lstptr->tecno)  ; 
qntyneeded  «  f 4double (f4ref ("QTY") ) ; 
matid  -  f41ong(f4ref ("MATID")); 
d4 select (matsup_dbf) ; 

14 select (-1) ;  //  to  be  replaced  (CSS) 

d4top();  //  to  be  replaced  (CSS) 

i4select(matsup_ndx2) ;*//*  MATID  SSS(CSS)*/ 
d4see)t_double  (xmatid) ;  */  /*  $5$  (CSS)*/ 
while  (matid  !-  f41onq (f4ref ("MATID") )) /*  (CSS) SSS  MATID 
d4s](lp  (1)  ; 

f4r_double (f4ref ("QTY") , (f4double (f 4ref ("QTY") )  -  qntyneeded)); 
brea)c; 

('E')  ;  brea)c;  //  do  nothing 


u4etror(-7,  "Invalid  node  TYPE" 
"in  resource  requirement" 
"linltod  list" 

lstptr->type,  (char  •)  0); 


} 

//  set  STATUS  of  repair  id  record  to  (P)ossible 
d4s6lect (repair_dbf ) ; 
d4see]t  double(repid); 
f4r_char(f4ref ("STATUS") ,  'P'); 

//  set  STATUS  of  material  records  to  (A) llocated 
d4select (matreq_dbf ) ; 
d4see]c  double  (repid)  ; 
while  Tf41ong(f4ref ("REPID") ) 


{ 


} 


f4r_char (f4ref ("STATUS") , 
d4s)clp  (1) ; 


—  repid) 
'Pi'); 


return  (RMRSSUCCESS) ; 


Int  setrepairstatus (int  tostatus,  long  repid) 
( 

/♦ 

*  ARGUMENT 


*/ 
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1319 

1320 

1321 

1322 

1323 

1324 

1325 

1326 

1327 

1328 

1329 

1330 

1331 

1332 

1333 

1334 

1335 

1336 

1337 

1338 

1339 

1340 

1341 

1342 

1342 

1343 

1344 

1345 

1346 

1347 

1348 

1349 

1350 

1351 

1352 

1353 

1354 

1355 

1356 

1357 

1358 

1359 

1359 

1360 

1361 

1362 

1363 

1364 

1365 

1366 

1366 

1367 

1367 

1368 

1369 

1370 

1371 

1372 

1373 

1374 

1375 

1376 

1376 

1377 

1378 

1379 

1380 

1381 

1382 

1383 

1384 

1385 

1386 

1387  ) 


<lnt)  tostatus  -  predefined  mneumonic  constant  corresponding  to 
the  status  to  which  the  repair  Is  changed  to 
(c.g.  SUSPEND,  XCANCEL,  OVERRIDE) 

<long)  repld  -  repair  Id 


*  DESCRIPTION 

*  Changes  STATUS  fields  of  both  the  repair  Id  record  and  associated 

*  resource  requirement  records  to  the  appropriate  code 


*  RETURNS 

*  (int)  status  code 


*  DATABASES  AFFECTED  (whether  direct  or  indirect) 

*  repair_dbf  (repair_ndxl  -  REPID  index  )  -  d4seek  used 

*  eqpreq_dbf  (eqpreq_ndxl  -  REPID  index  )  -  d4see)t,  d4slcip  used 

*  matreq_dbf  (matreq^ndxl  -  REPID  index  )  -  d4seelt,  d4s)cip  used 


float  matqtytoreturn,  supplyqty; 
long  mat Id; 
char  status; 

switch  (tostatus) 

{ 

case  (XCANCEL)  :  status  -  'X'; 
brea]c; 

case  (SUSPEND)  :  status  -  'S'; 
brea)i; 

case  (OVERRIDE)  !  status  -  'O'; 

brealc; 
default  : ; 

} 

d4select (repair_dbf ) ; 
i4select (repalr^ndxl) ; 
d4see)c_double  (repld) ; 
f4r_char (f4ref ("STATUS") ,  status) ; 

d4select (eqpreq_dbf ) ; 

i4select (eqpreq_ndxl) ; 

d43ee)c_double  (repld) ; 

while  (f41ong(f4ref ("REPID") )  —  repld) 

f4r_char (f4ref ("STATUS") ,  status) ; 
d4s)clp  (1)  ; 
i 

d43elect (matreq_dbf ) ; 

14select (matreq_ndxl) ; 

d4see)c_double  (repld)  ; 

while  (f41ong (f4ref ("REPID") )  --  repld) 

{ 

if  (f4char(f4ref ("STATUS") )  —  'A') 

( 

matqtytoreturn  »  f 4double (f 4ref ("QTY") ) ; 

matid  -  f41org (f4ref ("MATID") ) ; //  S$  to  be  used  w/  indexed  search 
f4r_char (f4ref ("STATUS") ,  status) ; 
d4select (matsup_dbf) ; 

14select (-1); 
d4top()  ; 

while  ((matid  !-  f41ong {f4ref ("MATID") ) )  std  d4eof())) 

d4s)clp(l);  //  $$  change  to  index  search  (ndx  on  "MATID") 

if  (!  d4eof()) 

{ 

supplyqty  «  f4double (f4ref ("QTY") ) ; 

f4r_double (f4ref ("QTY") ,  supplyqty  +  matqtytoreturn); 

} 

} 

d4select (matreq_dbf) ; 

14seiect  (matreq_ndxl ) ; 

f4r_char (f4ref ("STATUS") ,  status) ; 

d4sjcip  (1)  ; 

) 

return  (SUCCESS); 
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1388 

1389  - - - ..... - - - - 

1390  long  GetFacnum (char  *  facnumstrptr) 

1390  { 

1391  /* 

1392  *  ARGUMENT 

1393  *  (char  *)  facnumstrptr  -  pointer  to  facility  number  string  (e.g.  "B4058") 

1394  * 

1395  •  DESCRIPTION 

1396  *  Accepts  facility  number  string  and  returns  a  long  representation 

1397  *  ex.  "B4058"  ->  (long) 4058 

1398  * 

1399  *  RETURNS 

1400  *  facility  number  designation  (long) 

1401  * 

1402  * 

1403  •/ 

1404  char  tempstr (25) ; 

1405  Int  i; 

1406 

1407  //  strip  'B'  off  of  facility  designation  and  convert  to  int 

1408  St rcpy (tempstr,  facnumstrptr); 

1409  for  (i  -  1;  tempstr[i]  I-  '\0';  1++) 

1410  tempstr(l  -  IJ  -  tempstrd); 

1411  tempstr [i  -  1)  «  '\0'; 

1412 

1413  return  (atol (tempstr) ) ; 

1414  } 

1415 

1416  long  GetNxtAvlRepid(vold) 

1416  ( 

1417  /* 

1418  *  ARGUMENT;  none 

1419  * 

1420  *  DESCRIPTION 

1421  *  Gets  the  next  available  RMRS  repair  id  number;  chec)cs  for 

1422  *  empty  database  situation 

1423  * 

1424  *  RETURNS 

1425  *  (long)  repair  id  number 

1426  * 

1427  •  DATABASES  AFFECTED  (whether  direct  or  indirect) 

1428  *  repair  dbf  (no  index  used) 

1429  * 

1430  */ 

1431 

1432  //  assign  unique  RMRS  id  #  to  repair 

1433  d4select (repair_dbf ) ; 

1434  i4select  (-1) ; 

1435  if  (d4bottora()  --  3) 

1436  return  (1); 

1437  else 

1438  return  (f41ong (f4ref ("REPID") )  +  1); 

1439  } 

1440 

1441  int  AddRepRec (long  facnum,  long  repid,  int  priority) 

1441  { 

1442  /* 

1443  *  ARGUMENT 

1444  *  (long)  facnum  -  facility  number 

1445  •  (long)  repid  -  repair  id 

1446  •  (int)  priority  -  AB  mission-critical  facility  priority  assignment 

1447  * 

1448  »  DESCRIPTION 

1449  *  Adds  a  repair  data  record  to  the  end  of  REPAIR. DBF 

1450  * 

1451  *  RETURNS 

1452  *  (int)  status  of  d4append()  operation 

1453  * 

1454  *  DATABASES  AFFECTED  (whether  direct  or  indirect) 

1455  *  repair  dbf  (no  index  used) 

1456  * 

1457  •/ 

1458 


106 


PBOCAUTO.C 


Tuesday,  January  14,  1992 


Page  22 


1459  //  add  repair  record  to  REPAIR. DBF 

1460  d4select (repair  dbf); 

1461  f4r_long(f4ref (^FACNUM") ,  facnum) ; 

1462  f4r_long<f4ref ("REPID") ,  repid) ; 

1463  f4r_int(f4ref ("PRIORITY"),  priority); 

1464  f4r_int (f4ref ("SCHDPRTY") ,  priority); 

1465  f4r_char(f4ref ("STATUS") ,  'N'); 

1466 

1467  return  (d4append() ) ; 

•  1468  ) 

1469 

1470  void  cleanwin (void) 

1470  ( 

1471  int  i; 

■«  1472  for  (i  -  1;  1  <-  7;  1++) 

1473  vatputf(win,  i,  0,  "  "); 

1474  ) 

1475 

1476 

1477  int  GetRepairPrty (long  repid) 

1477  { 

1478  /* 

1479  *  ARGUMENT 

1480  *  (long)  repid  -  repair  id 

1481  • 

1482  *  DESCRIPTION 

1483  *  Gets  priority  of  repair 

1484  * 

1485  •  RETURNS 

1486  *  (int)  priority 

1487  * 

1488  *  DATABASES  AFFECTED  (whetlier  direct  or  indirect) 

1489  *  repair  dbf  (repair_ndxl  -  REPID  index  )  -  d4seek  used 

1490  * 

1491  •/ 

1492 

1493  int  prty; 

1494 

1495  d4select (repair_dbf) ; 

1496  i4select (repair~ndxl) ; 

1497  d4see)c_double  (repid) ; 

1498  prty  -  f4int (f4ref ("PRIORITY") ) ; 

1499  return  (prty); 

1500  ) 
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1  /• 

2  •  Procucil.c 

3  * 

4  *  functions  used  by  the  PROCESS  menu  selections 

5  * 

6  */ 

7 

8 

9  #include  <stdio.h> 

10  ♦include  <stdllb.h> 

11  linclude  <string.h> 

12  #include  <dos.h> 

13 

14  #include  "sysdofs.h" 

15  tinclude  ''d4base.h" 

16  tinclude  "u4error.h" 

17  linclude  "miscutll.h" 

18 

19  tinclude  "dw.h" 

20 

21  HWND  xdsplymessbox (void) ; 

22 

23  int  move_file (char  *  oldname,  char  •  newname) 

23  ( 

24  /* 

25  •  ARGUMENT 

26  *  (char  *)  oldname  -  old  filename  string 

27  *  (char  *)  newname  -  new  filename  string 

28  * 

29  •  DESCRIPTION 

30  *  Changes  the  filename  specification  by  modifying  the  FCB 

31  * 

32  *  RETURNS 

33  *  (int)  status  code; 

34  * 

35  *  interrupt  56H  status  codes  :  3  -  Path  not  found 

36  *  5  -  Access  denied 

37  *  17  -  Path  not  found 

38  * 

39  */ 

40 

41  union  REGS  regs;  struct  SREGS  sregs,* 

42  int  ret; 

43  regs. h. ah  -  0x56; 

44  sregs. ds  -  FP_SEG (oldname) ; 

45  regs.x.dx  -  FP_0FF (oldname) ; 

46  sregs.es  -  FP_SEG (newname) ; 

47  regs.x.dl  -  FP_0FF (newname) ; 

48  ret  *  lntdosx(4  regs,  4  regs,  4  sregs); 

49 

50  /*  if  carry  flag  is  set,  there  was  an  error  */ 

51  ret  -  regs. X. ax; 

52  return  (regs.x.cflag  ?  ret  ;  0); 

53  ) 

54 

55  int  Iseqpconf (REQLSTNODE  *  Istptr) 

55  ( 

56  /* 

57  *  ARGUMENT 

58  *  (REQLSTNODE  *)  Istptr  -  pointer  to  resource  availability  analysis  list 

59  * 

60  •  DESCRIPTION 

61  *  Checks  the  resource  availability  analysis  list  to  see  if  any  equipment 

62  *  conflicts  exist 

63  ♦ 

64  *  RETURNS 

65  *  (int)  TRUE  or  FALSE 

66  * 

67  */ 

68  if  (!  Istptr) 

68  { 

69  u4error (EMPTYLST,  "Unexpected  empty  list  error",  (char  *)  0); 

70  return  (FALSE);  /*  error  */ 

71  ) 
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72  for  (Istptr  -  lstptr->next;  lstptr->type  'E';  Istptr  - 

73  if  (lstptr->availstatus  !«  'F') 

74  return  (TRUE);  J*  eqp  conf  found 

75  return  (FALSE);  /*  no  conflicts 

76  ) 

77 


78  HWKD  xdsplymessbox (void) 

78  ( 

79  /* 

80  *  ARGUMENT 

81  * 

82  *  DESCRIPTION 

83  *  Sets  up  and  displays  a  standard  message  box 

84  * 

85  *  RETURNS 

86  *  (HWND)  Handle  to  window  of  message  box 

87  * 

88  */ 

89 

90  HWND  messwin; 

91 

92  messwin  -  vcreat(a,  30,  GREYBOX,  YES) ; 

93  vlocate (messwin,  8,  24); 

94  vframe (messwin,  GREYBOX,  FRDOUBLE) ; 

95  vshadow (messwin,  CURRENT,  SHADOWlOO,  BOTTOMRIGHT) ; 

96 

97  visible (messwin,  YES,  YES); 

98  return  (messwin) ; 

99  ) 

100 

101 


*/ 


102  Int 
102  { 

103  /* 

104 

105 

106 

107 

108 

109 

110 
111 
112 

113 

114 

115 

116 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 
126 

127 

128 
128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 


askcomp (void) 


ARGUMENT 

DESCRIPTION 
As)ts  tl^e  user 


if  a  COMPROMISE  s)iould  be  attempted 


RETURNS 

(int) 


TRUE  or  FALSE 


HWND  win; 
unsigned  int 


key; 


win  -  xdsplymessbox 0 
vratpsd,  0,  GRYBTXT, 
modattr(win, 
modattr (win, 
vratps(2,  0, 
vratps(4,  0, 
vratps(6,  0, 
vratps(7,  0, 
modattr (win, 
wViile  (1) 

{ 

key  =  getkeyO; 
switch  (key) 

( 

case  ('N')  : 

case  ('n')  : 
case  (ENTR)  : 
delay (2)  ; 
vdelete (win,  NONE) 
dmpxtrakeys () ; 
return  (FALSE) ; 
case  ('Y')  : 
case  ('y')  :  vratps(7, 
delay  (2)  ; 

vdelete  (win,  NONE) 
dmpxtrakeys () ; 
return  (TRUE) ; 


//  REPAIR  HAS  MATERIAL 
1,  2,  2,  SELQTYBLINK) ; 

1,  27,  2,  SELQTYBLINK); 

GRYBTXT,  "  CONFLICTS 

GRYBTXT,  "  substitution  may  be  possible 
KEYMESS,  "  Do  you  wish  to  enter 
KEYMESS,  "  COMPROMISE  mode  (N) :  ? 

7,  25,  3,  FLSHCHR)  ; 


vratps(7,  26,  HELP,  "N"); 


26,  HELP,  "Y"), 


"); 


"); 

•■); 

"); 

'■); 


l3tptr->next) 


*/ 

*/ 


I 
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default  ;  vbeepO;  /*  INVALID  keystroke  •/ 

143  ) 

144  } 

145  } 

146 

147 

148 
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2  *  * 
*  reset. c  * 


*  This  program  will  ZAP  all  the  records  in  the  * 

*  databases  that  are  populated  by  processed  • 

*  repairs  and  reset  all  material  supply  * 

»  quantities  to  1000.0.  • 

*  * 

*  by  Chris  Sawyer  10/6/91  * 

*********»1i****t**1it*********t**»*****»ttt,ti,*t**********/ 


3 

4 

5 

6 

7 

8 
9 

10 
11 
12 

13  tinclude  <stdio.h> 

14  #include  <stdlib.h> 

15  finclude  "d4base.h" 

16  tinclude  "rmrsutil.h" 

17 

18  int  reset (void) 

19  { 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50  > 


open_repair (0) ; 
d4zap(H.,  d4reccount  ()  )  ; 
d4close_all ( )  ; 

open_matreq(0) ; 
d42ap(lL,  d4reccount () )  ; 
d4close_all ( ) S 

open_eqpreq (0)  ; 
d4zap(lL,  d4reccount () )  ; 
d4olose_all  0  ; 

open_replnfo (0) ; 
d4zap(H,,  d4reccount  ()  )  ; 
d4close_all () ; 

open_matsup (0) ; 
d4top  {)  ; 

while  (I  d4eof()) 

f4r_double(f4ref ("QTY") ,  1000.0) ; 
d4s)cip  (1)  ; 

} 

d4pack ( ) ; 
d4close_all () ; 

open_eqp3up (0) ; 
d4pac)i  ()  ; 
d4close_all () ; 
fcloseall () ; 
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♦include  "d4all.h” 
♦include  "w4.h" 
♦Include  "g4char.h" 
♦include  "p4misc.h" 
♦include  "rmrs.h" 

♦include  <strlng.h> 
♦include  <ctype.h> 


10 

♦include  "rmrsclr.h” 

11 

12 

static 

void 

b4set_row (int,  long) ; 

13 

static 

int 

b4 modify (int) ; 

14 

static 

int 

b4sklp_one (int) ; 

15 

static 

int 

b4page (int) ; 

16 

static 

int 

b4top (int) ; 

17 

static 

int 

b4find(int) ; 

IS 

static 

int 

b4bottom{int) ; 

19 

static 

int 

b4 char (void) ; 

20 

static 

void 

b4edit_setup (void) ; 

21 

static 

void 

b4browse_setup (void) ; 

22 

static 

int 

b4setup(int  (*)  (void). 

int  ( 

23 

static 

void 

b4deact_menu (void) ; 

24 

static 

int 

b4add_copy (int) ; 

25 

static 

int 

b4select_index (int) ; 

26 

static 

int 

b4delete (int) ; 

27 

static 

int 

b4undelete (int) ; 

28 

static 

int 

b4go_rec (void) ; 

/* 

29 

static 

int 

b4empty_check (void) ; 

30 

31 

static 

int 

(*  user_edlt_setup)  (void)  -  0, 

32 

static 

int 

(*  user  browse  setup)  (void)  - 

33 

static 

int 

b4on_browse  ”  -1; 

34 

static 

int 

b4cur_ref  =  -1; 

35 

36 

static 

int 

b4pull_ref  -  -1; 

37 

static 

int 

b4select_ref  “  -1; 

38 

39 

static 

int 

b4page_si2e  -  -1; 

40 

static 

int 

b4top_raargin  -  3; 

41 

static 

int 

b4cur_top_margin  =  -1; 

42 

static 

int 

b4bottom_margin  «  1; 

43 

static 

int 

b4cursor_col  -  -1; 

44 

static 

int 

last_read_char  “0; 

45 

static 

int 

is_empty  =0; 

46 

static 

int 

do_e scape  ”  0; 

47 

48 

/*  Action  routines  assume  that  the 

record 

49 

'b4cursor  rec' .  */ 

50 

static 

int 

b4cursor_row; 

51 

static 

long 

b4cursor_rec; 

/* 

52 

53 

54 

55 

static 

long 

b4start_rec; 

/* 

56 

57 

static 

int 

b4num_displayed; 

/* 

58 

59 

St  atic 

int 

b4display_one (int) ; 

60 

static 

int 

b4display_as3ume (void) ; 

/* 

61 

62 

static 

int 

b4display_recs (long) ; 

63 

static 

void 

b4display_cur30r (void) ; 

64 

65 

extern 

CB  WINDOW  *  v4window_ptr; 

66 

extern 

GET  ’ 

'  v4get; 

67 

extern 

INDEX  *  V 4 index; 

68 

69 

70 

static 

long 

nattl  =  KW,  natt2  -  WK, 

mattl 

71 

72 

73 

static 

int 

b4qo_rec {) 

74 

f 

*)  (void)); 


Goes  to  the  record  at  'b4cursor  row' 


0; 


at  'b4cursor  row'  is 


The  record  at  ' b4cursor_row' .  This  info 
is  filled  in  by  ' b4display_recs'  . 

It  becomes  '-11'  if  there  was  no  record 
at  the  cursor. 

Saved  by  ' b4display_assume' . 

This  is  the  starting  record  number. 

Saved  by  ' b4display_recs' . 


Assumes  that  ' b4cur sor_rec' 
is  at  'b4cursor  row'. 


•/ 

*/ 

*/ 


*/ 


KW,  matt2  =  WK; 
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75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 

103 

104 

105 

106 

107 

108 

109 

110 
111 
112 

113 

114 

115 

116 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 


if  is_empty) 

if  (b4cur3or_rec  i-  d4recno<)) 
d4go (b4cursor_rec) ; 
return  0; 

) 

static  int  b4empty_check () 

( 

if  (d4eof()) 
d4top()  ; 

else 

{ 

if  (d4s)tip(lt)  —  -3) 
d4top()  ; 

else 

d4skip  (-1L)  ; 

) 

ls_empty  =  1; 
b4cursor_rec  “  OL; 
if  (!  d4eof()) 

{ 

is_empty  “0; 
b4cursor_rec  -  d4recno(); 

} 

return  0; 

} 

static  int  <*  verify_routine)  (int)  -  0; 
tifdef  KR 

void  b4verify{  verify_rou  ) 
int  (*verify_rou)  0  ; 

#else 

void  b4verify(int  (*  verify_rou)  (int)) 
#endif 
( 

verify_routine  *  verlfy_rou; 

) 

static  int  (*  call_routine)  (int,  int)  «  0; 
♦ifdef  KR 

void  b4call(  call_rou  ) 
int  (*call_rou)  0  ; 
telse 

void  b4call<int  {*  call_rou)  (int,  int)) 
fendif 
( 

call_routine  =  call_rou; 

} 


static  int  tenip_ref  =•  -1; 

static  void  b4deact_meru () 

( 

if  (w43elect (-1)  !=  b4pull_ref  &S  w4select(-l)  1=  b4cur_ref) 

( 

temp_ref  =  w4select (-1 ) ; 
n4refresh (temp_r0f ) / 
w4deactivate (temp_ref ) ; 

) 

} 

static  void  b4set_row (int  new_row,  long  new_attribute) 

{ 

int  get_on; 

GET  *  get_ptr; 

new_row  +-  b4cur_top_margin; 

for  (get_on  =  v4window_^tr->f irst_get;  get_on  >=  0;  get_or  = 
{ 

getptr  =  v4get  +  get_on; 
if  (b4on_browse) 

get_ptr->row  *  new_row; 


get_ptr->next) 
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get_ptr->attribute  “  new_attribute; 


static  int  b4modify(int  i3_modlfy) 

( 

int  rc; 

if  (is_modify) 

if  (is_empty)  return  0; 

b4deact_menu () ; 
if  <ls_modify) 
b4go_rec  <)  ; 

w4activate (b4cur_ref ) ; 
b4set_row (b4cursor_row,  KW) ; 

for  (;;) 

{ 

I  if  (is_modify) 

I  d4 unlock  (-ID  ; 

'  last  read_char  -  g4read() ; 

1  if  (last_read  char  =-  ESC  I  I  last_read_char  ==  CTRL_Q) 

1  ( 

j  last_read_char  ”0; 

>  if  (is_modify) 

r  d4go (b4cursor_rec)  ; 

!  else 

)  return  ESC; 

) 

I  break; 


if  (!  u4ptr_eTJal( (void  •)  0,  (void  *)  verify_routine| ) 
rc  -  (»  verify_routine)  (b4cur_ref ) ; 

else 

rc  =  0; 


if  (rc 
( 


if  (is  modify)  d41ock (d4recno() ,  1); 

if  (I  u4ptr  equal ( (void  *)  cail_routine,  (void  ♦)  0) ) 

(*  call  routine)  {b4cur_ref,  b4cursor_row  +  b4cur_top_margln) ; 

if  (ls_modify) 

rc””  d4write (d4recno () ) ; 

else 

rc  ”  d4append(); 
if  (rc  ””  -3)  continue; 

d4flush  (d4select  (-1) )  ; 

if  (last_read_char  —  RETURN  I  I  last_read_char  ==  DOWN) 
last_read_char  ”  0; 
break; 


if  (is_fflodify) 

{ 

b4di3play_assume 0 ; 
b4display_cursor () ; 

) 

d4unlock (-11) ; 
return  0; 


static  int  b4add_copy (int  is_blank) 
{ 

int  rc,  save_row; 
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223 

224 

if  (is_blanli) 

225 

d4go  (OL)  ; 

226 

else 

227 

b4go_tec () ; 

228 

229 

3ave_row  »  b4cursor_row; 

230 

b4cursor_row  «  b4num_displayod, 

231 

if  (b4cursor_row  >-  b4page_siz< 

232 

b4cursor_row — ; 

233 

234 

rc  -  b4modify(0); 

235 

if  (ro  !«  0) 

236 

b4cursor_row  -  save  row; 

237 

else 

238 

( 

239 

b4cursor_rec  -  d4recno(); 

240 

b4go_rec  {) ; 

241 

b4empty  check  () ; 

242 

} 

243 

244 

b4display_assume ( ) ; 

245 

return  0; 

246  } 

247 

248 

249  static  void  b4di3play_cur3or {) 

250  ( 

251  w4select (b4cur_ref ) ; 

252  w4cursor (b4cur_top_margin  +  b4cur3or_row,  b4cursor  col) ; 

253  ) 

254 

255  static  int  b4display_one (int  disp  row) 

256  { 

257  int  first  get; 

258 

259  b4set_row (disp_row,  KC) ; 

260  flrst_get  “  v4wlndow  ptr->fir3t  get; 

261 

262  if  (!  u4ptr_equal ( (void  *)  call_routine,  (void  •)  0)) 

263  (*  call_routine)  (b4cur  ref7  disp  row  +  b4cur  top  margin); 

264  -  _  _  _ 

265  if  (d4deleted 0 ) 

266  w4 (v4get [ f ir3t_get ] . row,  v4get[first  get). col  -  1,  "*") ; 

267  else  ~ 

268  w4 (v4get (first_getl . row,  v4get[first  get) .col  -  1,  "  ") ; 

269 

270  g4display(); 

271  return  0; 

272  ) 

273 

274  /*  Returns  the  number  of  records  displayed. 

275  Stores  record  at  cursor  in  'b4cursor  rec' . 

276  */ 

277 

278  static  int  b4display_recs (long  3tart_rec) 

279  ( 

280  int  i; 

281 

282  b4num_displayed  -  0; 

283  w4activate (b4cur_ref ) ; 

284 

285  b4cursor_rec  =  -IL; 

286  if  (is_empty) 

287  d4go(0L); 

288  else 

289  d4go (start_rec)  ; 

290 

291  for  (i  =0;  1  <  b4page_size;  i++) 

292  ( 

293  b4displ3y_ono 1 1) ; 

294 

295  if  (!  d4eof()) 

296  ( 
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297 

298 

299 

300 

301 

302 

303 

304 

305 

306  } 

307 


b4nuin_displayed+  +  ,* 
if  (1  «-  b4cursor_row) 

b4cutsor_rec  -  d4recno{); 

d4skip  (ID  ; 

) 

) 


return  0; 


308  static  int  b4display  assume () 

309  { 

310  b4start_rec  =  d4recno(); 

311  b4go_rec(); 

312  d4skip ( (long)  ~  b4cursor_row) ; 

313  b4display_recs (d4recno () ) ; 

314  b4dlsplay  oursorO; 

315 

316  return  0; 

317  } 

318 


319  static  int  b4top(int  junkparm) 

320  { 

321  d4top  0  ; 

322  b4cur3or_row  -  0; 

323  b4cursor  rec  d4recno(); 

324 

325  b4deact_menu  0  ; 

326  b4displa  y_a  s  sume ( ) ; 

327 

328  d4unlock (-1L) ; 

329  return  0; 

330  ) 

331 

332  static  int  b4bottom(lnt  junk  parm) 

333  { 

334  long  bot  rec; 

335 

336  d4bottom(); 

337  bot_rec  “  d4recno<); 

338  d4skip ( (long)  (1  -  b4page  size)); 

339 

340  b4deact_menu 0 ; 

341  b4display_rec3 (d4recro 0 ) ; 

342  b4cur3or_rec  -  bot_rec; 

343  b4cursor_row  -  b4num_displayed  -  1; 

344  b4display  cursor (); 

345 

346  d4unlock (-1L) ; 

347  return  0; 

348  ) 

349 

350  static  int  b4skip  one (int  n) 

351  { 

352  int  rc; 

353 

354  b4go_rec{); 

355  rc  »  d4sklp  (  (long)  n)  ; 

356  if  (rc  <  0)  return  -  1; 

357  if  (rc  ””  1)  return  0; 

358  if  (rc  ==  3)  return  0; 

359 

360  b4cur3or_row  +»  n; 

361  b4cursor_rec  «  d4recno(); 

362  if  (b4cursor_row  <  0) 

363  { 

364  b4cursor_row  «■  0; 

365  b4deact_menu ( ) ; 

366  b4display_assume 0 ; 

367  return  0; 

368  ) 

369 

370  if  (b4cur3or_row  b4page_size) 
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371  { 

372  b4cursor_row  -  b4page_slze  -  1; 

373  b4deact_menu () ; 

374  b4display_assumo 0 ; 

375  return  0; 

376  ) 

377 

378  b4display_cursor () ; 

379  d4unlock (-1L) ; 

380  return  0; 

381  ) 

382 

383  static  int  b4page<int  no  recs) 

384  { 

385  b4go_rec(); 

386  if  <no_recs  <  0  b4cursor_row  >  0) 

387  { 

388  d4skip ( <long)  -  b4cur3or_row) ; 

389  b4cursor_rec  ”  d4recno(); 

390  b4cursor_row  =  0; 

391  b4display_cursor 0 ; 

392  return  0; 

393  } 

394 

395  if  (no_recs  >  0  is  b4cur3or_row  <  b4num_displayed  -  1) 

396  ( 

397  d4skip((long)  (b4num_displayed  -  1  -  b4cursor_row) ) ; 

398  b4cursor_rec  =  d4recno(); 

399  b4cur3or_row  »  b4num_displayed  -  1; 

400  b4display_cursor () ; 

401  return  0; 

402  ) 

403 

404  d43kip ( (long)  no  recs) ; 

405  if  (d4eof())  d4skip (-1L) ; 

406  b4cursor_rec  =>  d4recno(); 

407  b4deact_menu () ; 

408  b4display_assume 0  ; 

409  d4unlock (-1L)  ; 

410  return  0; 

411  ) 

412 

413  void  b4margin(int  top_margin,  int  bottom_margin) 

414  { 

415  b4top_inargin  ”  top_margln; 

416  b4bottom_margln  =  bottom_margin; 

417  ) 

418 

419  static  int  b4help(int  junk_parm) 

420  ( 

421  int  w_ref,  startrow  =■  1,  startcol  =  1; 

422 

423  w_ref  »  w4define(2,  5,  23,  65); 

424  w4popup(); 

425  w4attrlbute (nattl) ; 

426  w4border (DOUBLE,  nattl); 

427  w4title(0,  2,  "  Help  ",  nattl); 

428  w4activate (w_ref) ; 

429 

430  w4 (start row++,  startcol,  "You  can  use  the  menu  to  select  an  option  or  you  can  press"); 

431  w4 (start row++,  startcol,  "one  of  the  following  command  keys:"); 

432  w4 (startrow++,  startcol,  "  ") ; 

433  w4 (startrow++,  startcol,  "A  Add  a  blank  record.”); 

434  w4 (startrow++,  startcol,  "B  Move  to  the  bottom  database  record."); 

435  w4 (start row++,  startcol,  "C  Add  a  record  by  copying  the  current  record."); 

436  w4 (startrow++,  startcol,  "D  Mark  the  current  record  for  deletion."); 

437  w4 (startrow++,  startcol,  "E  Switch  to  the  edit  screen  if  possible."); 

438  w4 (startrow++,  startcol,  "F  Find  a  record."); 

439  w4 (startrow++,  startcol,  "H  Display  this  help  screen."); 

440  w4  (startrow+  +  ,  startcol,  "M  Modify  the  current  record."); 

441  w4 (3tartrow++,  startcol,  "R  Enter  a  record  to  move  to."); 

442  w4  (startrow  +  t,  startcol,  "S  Select  a  record  ordering  index."); 

443  w4 (startrow++,  startcol,  "T  Move  to  the  top  database  record."); 

444  w4 (startrow++,  startcol,  "U  Remove  the  deletion  mark  from  the  current  record."); 
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445  w4 <startrow++,  startcol,  "Z  Switch  to  the  browse  screen  if  possible."); 

446  w4 <startrow++,  startcol,  "X  Exit."); 

447  w4 (startrow++,  startcol,  "<PgUp>  or  <PgDn>  Move  up/down  one  screen  of  records."); 

448  w4 (startrow++,  startcol,  "<Up  or  Down  Arrow>  Move  to  the  previous/next  record."); 

449  getchO; 

450  w4deactlvate (w_ref) ; 

451  w4close (w_ref ) ; 

452  return  0; 

453  } 

454 

455  static  int  b4 record (int  junk  parm) 

456  ( 

457  long  rec; 

458  int  rc,  w_ref; 

459 

460  rec  -  b4oursor_reo; 

461  if  (rec  <  OL)  rec  -  OL; 

462 

463  w_ref  -  w4define(9,  20,  14,  58); 

464  w4attribute ( (long)  KW) ; 

465  w4border (DOUBLE,  (long)  KW) ; 

466  w4popup(); 

467  w4title(0,  -1,  "  Record  Number  Command  ",  B_WHITE) ; 

468  w4activate(w  ref); 

469 

470  w4(l,  2,  "Enter  Record  Number:  ") ; 

471  g4attribute ( (long)  WK) ; 

472  g41ong(w4row() ,  w4col(),  s  rec) ; 

473  w4 (2,  2,  "Records  in  Database:"); 

474  w41ong{w4row() ,  w4col(),  d4recoount {) ,  9) ; 

475  rc  -  g4read();  /•  Read  the  Record  */ 

476 

477  w4deactivate (w_ref ) ; 

478  w4close (w  ref); 

4/9 

480  if  (rc  !=•  ESC) 

481  { 

482  if  (rec  >  0  Si  rec  <-  d4reccount()) 

483  { 

484  if  (is  empty) 

485  { 

486  w4display("  Message  ", 

407  "To  display  a  record,  there  will  be  an  immediate", 

488  "switch  to  record  number  ordering.",  (char  *)  0); 

489  i4unselect  () ; 

490  b4empty_check ( ) ; 

491  ) 

492  b4cursor_rec  »  rec; 

493  b4oursor_row  »  0; 

494 

495  b4deact_raenu 0 ; 

496  b4display_assume  0 ; 

497  ) 

498  } 

499 

500  b4display_cursor () ; 

501  d4unlock (-1L)  ; 

502  return  0; 

503  ) 

504 

505  static  int  b4find(lnt  junk  parm) 

506  { 

507  int  index_ref,  rc,  w_ref; 

508  char  seek_data[1011 ; 

509 

510  index_ref  =■  i4seek_ref  ()  ; 

511  if  (index_ref  <  0)  return  0; 

512 

513  ”  w4define(9,  21,  16,  58); 

514  w4attribute ( (long)  KW)  ; 

515  w4popup(); 

516  w4border (DOUBLE,  (long)  KW) ; 

517  w4title(0,  -1,  "  Find  ", (long)  KW) ; 

518  w4activate (wref ) ; 
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519 

520  w4(l,  3,  "Find  Index:  ") ; 

521  w4(l,  w4col{),  i4name (index  ref)); 

522 

523  memset  (seeic_data,  0,  (3ize_t)  sizeof  (seek_data) ) ; 

524  w4(3,  3,  "Enter  the  Find  Information:"); 

525  g4attribute  !  (long)  WK) ; 

526  g4(4,  3,  see);_data)  ; 

527  if  (i4type (index_ref)  --  'N') 

528  g4width(24,  24); 

529  else 

530  g4width(24,  100); 

531  rc  »  g4read(); 

532 

533  w4deactivate (w_ref) ; 

534  w4close (w_ref ) ; 

535 

536  if  (rc  -=  ESC) 

537  b4display_cursor () ; 

538  else 

539  ( 

540  if  (i4type (index_ref )  ••  'N') 

541  ( 

542  if  ((rc  -  d43eek_double (c4atod (seek_data,  24)))  <  0)  return  -  1; 

543  ) 

544  else 

545  if  (  (rc  =*  d4seek_str  (3eek_data) )  <  0)  return  -  1; 

546 

547  if  (rc  -=  3) 

548  ( 

549  c4trim_n (seek_data,  (int)  sizeof  (s6ek_data) ) ; 

550  w_ref  =  w4define(6,  5,  10,(46  +  strlen (seek_data)  +  8)); 

551  w4popup(); 

532  w4border (DOUBLE,  nattl) ; 

553  w4attribute  (nattl) ; 

554  w4activate (w_ref ) ; 

555  w4(l,  1,  "The  end  of  the  file  was  reached  finding  data:  ") ; 

556  w4(l,  w4col(),  seek_data) ; 

557  g4char(); 

558  w4deactivate (w_ref) ; 

559  w4close (w_tef) ; 

560  b4display_cursor  0 ; 

561 

562  d4unlock(-lL); 

563  return  0; 

564  ) 

565 

566  b4cursor_rec  »  d4recno(); 

567  b4cursor_row  «  0; 

568  b4deact_menu () ; 

569  b4display_assume 0 ; 

570  ) 

571 

572  d4unlock (-1L) ; 

573  return  0; 

574  ) 

575 

576 

577  static  int  fa4select_index (int  item_ref) 

578  ( 

579  i4select (n4int_get (item_ref) ) ; 

580  n4start_item (item_ref ) ; 

581  la3t_read_char  ”  -2; 

582  do_escape  =1; 

583  return  0; 

584  } 

585 

586  static  int  b4delete(int  junk_parm) 

587  { 

588  if  (b4cursor_rec  >  OL) 

589  d4delete (b4cursor_rec) ; 

590 

591  b4deact_menu 0 ; 

592  w4select (b4cur_ref) ; 
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593  b4display_one <b4cursor_row) ; 

594  d4unlock  <-lL) ;  ** 

595  return  0; 

596  ) 

597 

598  static  Int  b4undelete (int  junk  parm) 

599  < 

600  If  (b4cursor_rec  >  0L> 

601  d4recall (b4cursor  rec) ; 

602 

603  b4deact_menu () ; 

604  w4select (b4cur_ref ) ; 

605  b4display_one (b4cur3or_row) ; 

606  d4unlock (-1L) ; 

607  return  0; 

608  ) 

609 

610  static  int  b4browse  flip<int  junkparm) 

611  i 

612  if  (u4ptr_equal ( (void  *)  user_edit_setup,  (void  *)  0))  return  0; 

613  if  (u4ptr_equal ( (void  *)  user  browse  setup,  (void  •)  0))  return  0; 

614 

615  b4deaot_menu 0 ; 

616  n4ref resh (b4pull  ref); 

617 

618  w4close (b4cur  ref); 

619 

620  if  (b4on_browse) 

621  b4edit_setup () ; 

622  else 

623  b4browse  setup (); 

624 

625  return  0; 

626  ) 

627 

628  #ifdef  KR 

629  int  b4edit (  browse_setup,  edit_setup  ) 

630  int  (*browso_setup) ()  ; 

631  int  (‘edit  setup)  0  ; 

632  lelse 

633  int  b4edit(int  (*  browse  setup)  (void),  int  (*  edit  setup)  (void)) 

634  #endif 

635  ( 

636  b4on_browse  -  0; 

637  return  (b4setup (browse  setup,  edit  setup)); 

638  )  ~  “ 

639 

640  tifdef  KR 

641  int  b4browse (  browse_setup,  edlt_setup  ) 

642  int  (*browse_setup) ()  ; 

643  int  (•edit_setup)  0  ; 

644  lelse 

645  int  b4browse(int  (*  browse_setup)  (void),  int  (*  edit  setup)  (void)) 

646  #endif 

647  ( 

648  b4on_browse  »  1; 

649  return  (b4 setup (browse_3etup,  edit  setup)); 

650  ) 

651 

652  static  c)iar  browse_or  editO  •  "BROWSE"; 

653 

654  static  void  b4edit_setup {) 

655  { 

656  b4cur_ref  =  (*  user_edit_3etup)  (); 

657  b4on_browse  ”0; 

658  b4cur_top_margin  -  v4qet [v4window_ptr->first_get] .row; 

659  b4page_size  «  1; 

660  b4cursor_row  «  0; 

661  b4cursor_col  =■  v4get [v4window_ptr->f ir3t_get | .col; 

662  strcpy (browse_or_edit,  "Browse"); 

663  b4display_assume () ; 

664  d4unlock (-1L) ; 

665  ) 

666 
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667  static  void  b4browse  setup () 

668  { 

669  b4cur_ref  »  (*  user_browse_setup)  <) ; 

670  b4on_browse  -  1; 

671  b4cur_top_margin  •>  b4top_margin; 

672  b4page_size  -  w4height (-1)  -  b4top_raargln  -  b4bottom_margin; 

673  b4cutsor_row  -  0; 

674  b4cursor_col  -  v4get [v4window_ptr->f irst_get] .col; 

675  strcpy (browse_or_edlt,  "Edit 

676  b4display_assume  0 ; 

677  d4unlock (-1L) ; 

678  ) 

679 

680  tlfdof  KR 

681  static  int  b4setup(  browse_setup,  edit_setup  ) 

682  int  (*browse_setup)  ()  ; 

683  int  (*edit_setup)  ()  ; 

684  telse 

685  static  int  b4setup<int  {*  browse  setup)  (void),  int  (*  edit  setup)  (void)) 

686  #endif 

687  { 

688  int  srch_ref,  po3_ref,  add_ref,  ch_ref,  fillwin; 

689  int  i_ref,  item_ref;  ~ 

690  int  start  loc)i  code; 

691 

692  /*  w4clear(-l)  ;*/ 

693 

694  user_edit_setup  =•  edit_setup; 

695  user_browse_setup  =  browse_setup; 

696  start_loc)c_code  “  d41ock  code  (2); 

697 

698  b4empty_chec)c  0  ; 

699 

700  if  (b4on_browse) 

701  b4browse  setup (); 

702  else 

703  b4edit  setup (); 

704 

705  b4select  ref  “  -1; 

706 

707  /*  Define  the  index  file  selection  menu.  */ 

708  if  (d4ptr 0 ->index  ref  >«  0) 

709  ( 

710  i_ref  =  h4flrst ( (char  **)  i  v4index,  d4ptr () ->index  ref ) ; 

711 

712  b4select_ref  =  w4define(-l,  -1,  -1,  -1) ; 

713  w4attribute (nattl) ; 

714  w4border (SINGLE,  nattl); 

715  n4attribute (nattl,  natt2) ; 

716  n4 ("Record  Number  Ordering"); 

717  n4action (b4select_index) ; 

718  n41nt_save (-1)  ; 

719  for  (;  i_ref  >-  0;  1  ref  -  v4indGx(i  ref] .next) 

720  { 

721  item_ref  -  n4 (v4index (i_ref J . name) ; 

722  if  (i4seelr_ref  0  --  i_ref) 

723  n4start_item (item_ref ) ; 

724  n4action (b4select_index) ; 

725  n4int  save(i  ref )  ; 

726  ) 

727  ) 

728 

729  /*  Define  the  main  pulldown  menu,  */ 

730  n4)cey_special  (-1,  CTRL_C,  -1,  -1)  ; 

731  b4pull_ref  =  w4define(0,  0,  0,  79); 

732  w4attribute (mattl) ; 

733  n4attribute (mattl,  roatt2)  ; 

734  n4key_special(ESC,  CTRL  C,  -1,  -1); 

735 

736  n4("  Help  ") ; 

737  n4)cey(0,  0,  -1)  ; 

738  n4action (b4help) ; 

739 

740  n4{"  Modify  ") ; 
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741  n41cey(0,  0,  -1); 

742  n4dctlon (n43ub_menu) ; 

743  n4ptr  save <&  ch_ref ) ; 

744 

745  n4<"  Add  "); 

746  n4)cey  (0,  0,  -1); 

747  n4action (n4sub_menu) ; 

748  n4ptr_save(s  add_ref) ; 

749 

750  n4 ("  Position 

751  n4key(0,  0,  -1); 

752  n4actlon (n4sub_menu) ; 

753  n4ptr_save (S  pos_ref) ; 

754 

755  if 

756  { 

757 

758 

759 

760 

761  } 

762 

763  if 

764 

765  { 

766 

767 

768 

769  ) 

770 

771  n4("  Exit  ")  ; 

772  n4key(0,  0,  -1)  ; 

773  n4parm<-l)  ,* 

774 

775  ch_ref  »  w4define(-l,  -I,  -1,  -1); 

776  w4attribute (nattl)  ; 

777  vi4border  (SINGLE,  nattl); 

778  n4attribute (nattl,  natt2); 

779  n4("  Modify  Record  ") ;  n4actlon (b4ffiodify) ;  n4parm(l); 

780  n4("  Delete  Record  ");  n4action (b4delete) ; 

781  n4("  Undelete  Record  ");  n4action (b4 undelete) ; 

782 

783  if  (b4seleot  ref  >•«  0) 

784  ( 

785  srch_ref  »  w4define(-l,  -1,  -1,  -1); 

786  w4attribute  (nattl) ; 

787  w4border  (SINGLE,  nattl); 

788  n4attrlbute (nattl,  natt2) ; 

789  n4("  Find  ");  n4actlon (b4find) ; 

790  if  (b4select_ref  >-  0) 

791  ( 

792  n4("  Select  Record  Ordering  Index  "); 

793  n4action (n4sub_menu) ; 

794  n4ptr_save(s  b4select_ref ) ; 

795  ) 

796  ) 

797 

798  pos_ref  =  w4define(-l,  -1,  -1,  -1); 

799  w4attribute  (nattl) ; 

800  i;4border  (SINGLE,  nattl); 

801  n4attribute (nattl,  natt2) ; 

802  n4{"  Record  ") ;  n4actlon (b4record) ; 

803  n4 ("  Top  ”);  n4action (b4top) ; 

804  n4("  Bottom  ");  n4action (b4bottom) ; 

805 

806  add_ref  -  w4define(-l,  -1,  -1,  -1); 

807  w4attribute (nattl) ; 

808  vt4border  (SINGLE,  nattl); 

809  n4attribute (nattl,  natt2) ; 

810  n4("  Add  Blank  ");  n4action (b4add_copy) ;  n4parm(l); 

811  n4("  Add  Copy  ");  n4actio^ (b4add_copy) ;  n4parm(0); 

812  n4key((int)  'C',  1,  4) ; 

813 

814  n4pulldown (b4pull_ref)  ; 


<b4select_ref  >-  0) 

n4("  Find  ") ; 
n4key{0,  0,  -1)  ; 
n4action (n4sub_menu) ; 
n4ptr_3ave(s  srch__ref) ; 


(!  u4ptr_equal ( (void  *)  user_edit_3etup,  (void  »)  0)  4S 
!  u4ptr_equal ( (void  *)  u3er_edit_setup,  (void  *)  0) ) 

n4 (browse_or_edit) ; 
n4key(0,  0,  -1)  ; 
n4action (b4brow3e_flip) ; 
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815  w4select (b4pull_ref ) ; 

816  w4memory(); 

817  fillwln  -  w4define(0,  0,  0,  79); 

818  w4attribute (mattl) ; 

819  w4activate (fillwin) ; 

820 

821  n4char_routine (b4char) ; 

822  n4activate (b4pull_ref) ; 

823 

824  w4close (b4cur_ref ) ; 

825 

826  w4deactivate (b4pull_ref) ; 

827  w4close  !  t'4pull_ref)  ; 

828  w4close ifiilwin)  ; 

829  n4char_routine (0)  ; 

830 

831  If  (b4select  ref  >-  0) 

832  { 

833  w4close (b4select_ref )  ; 

834  w4close (srch_ref) ; 

835  } 

836 

837  w4close (pos_ref ) ; 

838  w4close  <add_ref ) ; 

839  w4close (ch_ref ) ; 

840 

841  d41oclc_code  (start_loc)c_code)  ; 

842  w4clear (-1) ; 

843 

844  return  0; 

845  ) 

846 

847  static  int  b4char() 

848  ( 

849  int  rc; 

850 

851  if  (do  escape) 

852  { 

853  do_e scape  =0; 

854  return  ESC; 

855  } 

856 

857  if  (last_read  char  !=  0) 

858  { 

859  rc  -  last_read_char; 

860  last  read_char  -  0; 

861  ) 

862  else 

863  rc  =  g4ohar () ; 

864 

865  if  (rc  >  0  SS  rc  <  OxFF) 

866  rc  =  u4toupper (rc) ; 

867 

868  if  (w43elect (-1)  i=  b4pull_ref) 

869  if  (rc  >-  (int)  'A'  rc  <»  (int)  ' Z' )  return  rc; 

870 

871  switch  (rc) 

872  { 

873  case  PGUP  : 

874  b4page{-  b4page_size) ; 

875  brea)<; 

876 

877  case  PGDN  : 

878  b4page (b4page_size) ; 

879  break; 

880 

881  #ifndef  UNIX 

882  case  ALT_A  ; 

883  #endif 

884  case  'A'  : 

885  b4add_copy (1) ; 

886  brea)c; 

887 

888  #ifndef  UNIX 
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889 

890 

891 

892 

893 

894 

895 

896 

897 

898 

899 

900 

901 

902 

903 

904 

905 

906 

907 

908 

909 

910 

911 

912 

913 

914 

915 

916 

917 

918 

919 

920 

921 

922 

923 

924 

925 

926 

927 

928 

929 

930 

931 

932 

933 

934 

935 

936 

937 

938 

939 

940 

941 

942 

943 

944 

945 

946 
94  7 

948 

949 

950 

951 

952 

953 

954 

955 

956 

957 

958 

959 

960 

961 

962 


case  ALr_B  ; 

♦endif 
case  'B'  : 

b4bottora  (0) ; 
break; 

♦ifndef  UNIX 
case  ALT_C  : 

# endif 
case  'C'  : 

b4add_copy (0) ; 
break; 

♦ifndef  UNIX 
case  ALT_D  : 

♦endif 
case  'D'  : 

b4delete (0) ; 
break; 

♦ifndef  UNIX 
case  ALT_E  : 

♦endif 
case  'E'  : 

if  (b4on_browse) 

b4browse_flip (0) ; 
break; 

♦ifndef  UNIX 
case  ALT_F  ; 

♦endif 
case  'F'  ; 

b4find  (0)  ; 
break; 


♦ifndef  UNIX 
case  ALT_H  ! 

♦endif 
case  'H'  ; 

b4help (0) ; 
break; 

♦ifndef  UNIX 
case  ALT_M  : 

♦endif 
case  'M'  ! 

b4raodify  (1)  ; 
break; 

♦ifndef  UNIX 
case  ALT_R  : 

♦endif 
case  'R'  : 

b4record(0) ; 
break; 

♦ifndef  UNIX 
case  ALT_S  : 

♦endif 
case  'S’  ; 

if  (b4select_ref  >-  0) 

n4activate (b4select_ref ) ; 
break; 

case  -  2  :  /*  After  ' b4select_index'  to  refresh  the  display.*/ 

b4deact_menu () ; 
b4go_rec  () ; 
b4empty_check () ; 
b4display_assume () ; 
if  (b4cursor_rec  =—  -IL) 

{ 

b4cursor_rec  =  b43tart_rec; 
b4cursor_row  =  0; 

) 
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963 

d4unloclc  (-1L)  ; 

964 

break; 

965 

966 

♦ifndef  UNIX 

967 

case  ALT  T  : 

968 

♦endlf 

969 

case  'T'  s 

970 

b4top  (0)  ; 

971 

break; 

972 

973 

#ifndef  UNIX 

974 

case  ALT_U  : 

975 

tendif 

976 

case  'U'  t 

977 

b4undelete (0) ; 

978 

break; 

979 

980 

♦ifndef  UNIX 

981 

case  ALT  2  : 

982 

#endlf 

983 

case  '2'  s 

984 

if  ( !  b4on_brow3e) 

985 

b4browse_flip (0) ; 

986 

break; 

987 

988 

♦ifndef  UNIX 

989 

case  ALT_X  : 

990 

♦endif 

991 

case  'X'  ! 

992 

return  CTRL_C; 

993 

994 

case  UP  : 

995 

if  (v4window_ptr->horizontal) 

996 

b4skip_one (-1) ; 

997 

return  rc;~ 

998 

999 

case  DOWN  : 

1000 

if  (v4window_ptr->horizontal) 

1001 

b4skip_one (1) ; 

1002 

return  rc; 

1003 

1004 

default  ! 

1005 

return  rc; 

1006 

) 

1007 

1008 

return  0; 

1009  } 

1010 

1011  int 

b4quick_browse () 

1012  { 

1013 

int  c,  j,  i,  next_c,  w,  fillwin; 

1014 

long  ref; 

1015 

int  ur  =1,  Ic  =  0,  Ir  =  24,  rc  = 

1016 

char  vl [2]  = 

1016 

{ 

1016 

179,  0 

1016 

); 

1017 

char  vt [2]  = 

1017 

{ 

1017 

194,  0 

1017 

); 

1018 

1019 

1020 

w4define(ur,  Ic,  Ir,  rc) ; 

1021 

w4attribute (KC) ; 

1022 

w4memory  ()  ; 

1023 

1024 

w4activate (-1) ; 

1025 

g4release (0) ; 

1026 

1027 

next_c  =2; 

1028 

1029 

w4repeat  (2,  Ic  +  2,  196,  (rc  -  Ic 

1030 

w4  <0,  2,  d4name  ()  )  ; 
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1031 

1032 

1033 

1034 

1035 

1036 

1037 

1038 

1039 

1040 

1041 

1042 

1043 

1044 

1045 

1046 

1047 

1048 

1049 

1050 

1051 

1052 

1053 

1054 

1055 

1056 

1057  } 

1058 

1059  int 

1060  { 
1061 
1062 

1063 

1064 

1065 

1066 

1067 

1068 

1069 

1070 

1071 

1072 

1073 

1074 

1075 

1076 

1077 

1078 

1079 

1080 
1081 
1082 

1083 

1084 

1085 

1086 
1087  } 


for  (j  -  1;  j  <-  f4num  fields  0;  j++) 
{ 

c  -  next  c; 


ref  «  f4j_ref(j); 

if  (f4type(ref)  —  'M')  continue; 

if  (f4width(ref)  >-  MAX_GET_WIDTH)  continue; 

w  -  f4width (ref ) ; 
if  !w  <-  10)  w  -  10; 

if  (c  >  2  S4  c  <  (rc  -  w) ) 

< 

w4  (ur  +  1,  c  -  2,  vt)  ; 

for  (i  -  ur  +  2;  i  <  Ir  -  1;  i++)  w4<i,  c  -  2, 


next_c  “  c  +  w  +  2; 

if  (next_c  >-  w4width(-l))  break; 

w4(l,  c,  f4name  (ref) ) ; 
g4field(-l,  c,  ref); 


return  (w4select (-1) ) ; 


b4quick_edit () 

int  r,  j; 
long  ref; 

w4define(l,  0,  24,  79); 
w4attrlhute (KC) ; 
w4(0,  1,  d4name()); 

w4meraory ( ) ; 
w4activate (-1) ; 
g4release (0) ; 

r  -  1; 

for  (j  =  1;  j  <-  f4num  fields ();  j++) 

{ 

ref  »  f4j_ref(j); 

if  (f4type(ref)  =■«•  'M')  continue; 

if  (f4wldth(ref)  >-  MAX_GET_WIDrH)  continue; 

if  (r  >=  w4height(-l)  -  1)  break; 
w4  (r,  2,  f4name  (ref ) ) ; 
g4field(r,  14,  ref ) ; 

if  (f4widt)i(ref)  >  64)  g4width (f  4width (ref) ,  64); 
r++; 


return  (w4select (-1 ) )  ; 


vl)  ; 
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1  /*  u4error.c  modified  for  RMRS  and  DATA  WINDOWS 

2 

3  MDS  11-21-91 

ee  original  code  base  version  of  u4error.c  to  port  to  UNIX 

5 

6  */ 

7 

8  #lnclude  <stdarg.h> 

9  linclude  "rmrserr.h" 

10  finclude  "p4misc.h" 

11  #lnclude  "dw.h" 

12  (include  "d4all.h'' 

13  (include  "rmrs.h" 

14 

15  HWND  errwin; 

16 

17  Int  v4error  »  -1; 

18 

19  typedef  struct  error_data_3t 

20  ( 

21  int  error_num; 

22  char  *  error_data; 

23  ) 

23  ERR08_DArA; 

24 

25  ERROR_DATA  error_data[I  = 


26 

27 

/* 

General  Disk  Access  Errors  */ 

28 

( 

28 

E_CREATE,  "Creating  File" 

28 

), 

29 

{ 

29 

E_0PEN,  "Opening  File" 

29 

30 

{ 

30 

E_READ,  "Reading  from  File" 

30 

}, 

31 

{ 

31 

E_LSEEK,  "Seeking  to  File  Position" 

31 

), 

32 

{ 

32 

E_WRITE,  "Writing  to  File" 

32 

33 

{ 

33 

E_CL0SE,  "Closing  File" 

33 

), 

34 

34 

E_REM0VE,  "Removing  File" 

34 

>, 

35 

36 

/* 

Database  Specific  Errors  •/ 

37 

{ 

37 

E_BAD_DBF,  "File  is  not  a  Database:" 

37 

), 

38 

{ 

38 

E_D_MISSING,  "No  Open  Database" 

38 

), 

39 

{ 

39 

E_REC_LENGTH,  "Record  Length  is  Too  Large 

39 

), 

40 

( 

40 

E_FIELD,  "Unrecognized  Field" 

40 

}, 

41 

42 

/* 

Index  File  Specific  Errors  */ 

43 

( 

43 

E_INDEX,  "Building  Index  File" 

43 

), 

44 

( 

44 

E_I_CLOSE,  "Closing  Index  File" 

44 

), 

45 

( 

45 

E_BAD_NDX,  "File  is  not  an  Index  File" 

45 
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46 

{ 

46 

E_I_DATE,  "Index  File  is  out  of  Date" 

46 

}, 

47 

{ 

47 

E_I_REC0RD,  "Index  File  Record  does  not  Exist" 

47 

). 

48 

{ 

43 

E_UNIQUE,  "Key  is  not  Unique" 

48 

), 

49 

( 

49 

E_I_TYPE,  "Key  Evaluates  to  Logical  Result" 

49 

50 

{ 

50 

E_I_CHANGED,  "Key  Length  or  Type  has  Changed" 

50 

), 

51 

{ 

51 

E_KEy_LEN,  "Key  Length  over  100  Characters" 

51 

}, 

52 

{ 

52 

E_N0_INDEX,  "Seek  on  Database  with  no  Index  File" 

52 

), 

53 

{ 

53 

E_NUM_PARMS,  "Wrong  Number  of  Parameters  in  Expression" 

53 

). 

54 

55 

/* 

Multi-User  Errors  */ 

56 

( 

56 

E_LOCK,  "Locking  a  File" 

56 

), 

57 

{ 

57 

E_UNL0CK,  "Unlocking  a  File" 

57 

), 

58 

59 

/* 

Expression  Evaluation  Errors  */ 

60 

( 

60 

E_BASE_NAME,  "Database  not  Located  while  Evaluating  Express 

60 

), 

61 

\ 

61 

E_COMPILE_NULL,  "Executing  Null  Expression" 

61 

)/ 

62 

{ 

62 

E_EXPECT,  "Expecting  \",\"  or  \")\"  while  Evaluating  Expres; 

62 

}, 

63 

{ 

63 

E_COMPLETE,  "Expression  is  not  Complete" 

63 

), 

64 

{ 

64 

2_DATE,  "Illegal  Date" 

64 

), 

65 

( 

65 

E_0VERFL0W,  "Overflow  while  Evaluating  Expression" 

65 

), 

66 

( 

66 

E_TYPE,  "Parameter  or  Operator  has  the  Wrong  Type" 

66 

)/ 

67 

{ 

67 

E_RIGHT,  "Right  Bracket  Missing  in  Expression" 

67 

), 

68 

( 

68 

E_FUNCTION,  "Unrecognized  Function  in  Expression" 

68 

), 

69 

{ 

69 

E_0PERAT0R,  "Unrecognized  Operator  in  Expression" 

69 

>, 

70 

{ 

70 

E_VALUE,  "Unrecognized  Value  in  Expression" 

70 

> 

70 

f 

71 

{ 

71 

E_STRING_LONG,  "Unterminated  String  in  Expression" 

71 

) 

71 

72 

73 

/* 

Memo  File  Errors  */ 

128 


4RSERR.C 

Tuesday,  January  14,  1992 

74 

( 

74 

E  EDITOR,  "Editing  Memo  File  with  Editor" 

74 

) 

74 

« 

75 

{ 

75 

E  MEMO  NAME,  "Memo  File  Name  Inconsistency" 

75 

) 

75 

r 

76 

{ 

76 

E  MEMO  SIZE,  "Memo  File  Entry  is  over  32767  Byte: 

76 

), 

77 

78 

/*  Windowing  and  Menuing  Errors  */ 

79 

( 

79 

E  WINDOW  REF,  "Illegal  Window  Reference  Number" 

79 

), 

80 

81 

/*  Extended  Routine  Errors  •/ 

82 

{ 

82 

E  RELATING,  "Relating  Databases" 

82 

) 

82 

f 

83 

{ 

83 

E  CONTROL,  "No  Controlling  Database" 

83 

) 

83 

$ 

84 

{ 

84 

E  RELATED,  "Illegal  Related  Database" 

84 

} 

84 

« 

85 

86 

/*  Memory  Error  •/ 

87 

{ 

87 

E  MEMORY,  "Out  of  Memory" 

87 

} 

87 

88 

{ 

88 

E  ALLOCATE,  "Memory  Allocation  Error" 

88 

) 

88 

f 

89 

90 

/*  Internal  Error  */ 

91 

{ 

91 

E  INTERNAL,  "Overwritten  Memory" 

91 

) 

91 

/ 

92 

93 

/*  Sorting  Errors  */ 

94 

{ 

94 

E  SORT,  "Not  Enough  Memory  to  Sort" 

94 

) 

94 

/ 

95 

{ 

95 

E  SORT  ADD,  "Too  Many  Records  in  Sort" 

95 

), 

96 

}; 

97 

98 

static 

int  col,  row; 

99 

100 

void  error_out (char  *) ; 

101 

void  error  out (char  *  ptr) 

102 

{ 

103 

row++; 

104 

vatputs (errwin,  row,  col,  ptr); 

105 

} 

106 

107 

u4error(lnt  error  num,  char  *  msg,  ...) 

108 

{ 

109 

int 

keyboard,  1; 

110 

va 

list  arg  marker; 

111 

char  *  ptr; 

112 

char  buffer [40] ; 

113 

row 

-  0; 

114 

col 

"  2; 
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115 

116  errwin  -  vcreatdS,  40,  ERR,  YES); 

117  vlocate<errwin,  5,  20); 

118  vframe (errwin,  ERR,  FRDOOBLE) ; 

119  vshadow (errwin,  CURRENT,  SHADOW75,  BOTTOMRIGHT) ; 

120  visible (errwin,  YES,  YES) ; 

121  ViBtitle  (errwin,  TOP,  CENTERJUST,  ERR,  "  ERROR  "); 

122 

123  v4error  -  error  num; 

124 

125  error_out ("Error  Number:  "); 

126  c41toa ( (long)  error_num,  buffer,  10); 

127  buffer tlO]  -  '\000'; 

128  error_out (buffer) ; 

129  error~out ("") ; 

130 

131  for  (i  -  0;  i  <  sizeof  (error_data)  /  slzeof  (ERROR_DATA) ;  i++) 

132  if  (error_data(i] .error  num  --  error  num) 

133  ( 

134  error_out (error_dat4[i] .error_data) ; 

135  break; 

136  ) 

137 

138  va_start (4rg_marker,  msg) ; 

139  ptr  -  msg; 

140 

141  for  (;  ptr  !«  (char  *)  0;  ptr  -  va  arg(arg  marker,  char  *)) 

142  (  ~  “ 

143  error  out (ptr); 

144  } 

145 

146  error_out ("Press  a  key  ,.,"); 

147  keyboard  -  getchO; 

148 

149  if  (error_num  E  MEMORY  I (  error  num  —  E  INTERNAL  I |  error  num  — 

150  (  _  _ 

151  vdelete (errwin,  NONE); 

152  exit(l); 

153  } 

154 

155  vdelete (errwin,  NONE) ; 

156  return  (keyboard) ; 

157  } 


E_ALLOCATE) 
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1  /* 

2  •  rmrsinit.c 

3  * 

4  */ 

5 

6  tdefine  SYSTDSCRP  "System  commands  and  description" 

7  tdefine  SABTDSCRP  "Show  version  " 

8  #defino  SDOSDSCRP  "Exit  to  DOS  temporarily  (typing  EXIT  will  return  to  RMRS) " 

9  tdefine  SQUTDSCRP  "Quit  the  RMRS  program  " 

*  10  #defino  INITDSCRP  "Change  setup  or  initialize  new  AB  supply  files" 

11  #define  PROCDSCRP  "Check  repairs  for  resource  availablity  conflicts" 

12  tdefine  SCHDDSCRP  "Schedule  the  repairs  that  are  POSSIBLE" 

13  #define  CHNGDSCRP  "Change  the  status  of  a  repair" 

14  tdeflne  GREPDSCRP  "Generate  a  report" 

»  15  #define  QOITDSCRP  "Exit  program" 

16  fdefine  ILNSDSCRP  "Load  a  new  AB  resource  supply  file  from  disk" 

17  Idefine  ILEQDSCRP  "Load  a  new  AB  equipment  supply  file  from  disk" 

18  #define  ILMTDSCRP  "Load  a  new  AB  materials  supply  file  from  disk" 

19  ♦define  PAOTDSCRP  "Process  ALL  new  PDES  facility  repair  files  in  priority  order" 

20  Idefine  PSELDSCHP  "Select  a  single  PDES  facility  repair  file  for  processing" 

21  fdefine  PCOMDSCRP  "Select  a  SUSPENDED  repair  and  reattempt  a  resource  compromise" 

22  tdefine  SFULDSCRP  "Schedule  all  repairs  (i.e.  new  AND  previously  scheduled  repairs)" 

23  tdefine  SINCDSCRP  "Schedule  only  newly  processed  repairs" 

24  idefine  SPRIDSCRP  "Set  the  scheduling  order  by  adjusting  repair  priority" 

25  tdefine  CCOMDSCRP  "Change  the  status  of  a  QUEUED  repair  to  COMPLETED" 

26  idefine  CCANDSCRP  "Change  the  status  of  a  POSSIBLE  or  QUEUED  repair  to  CANCELED" 

27  idefine  6GANDSCRP  "Generate  a  gantt  chart" 

28  idefine  GSCHDSCRP  "Generate  a  tabular  schedule  listing" 

29  idefine  ED  "Edit  RMRS  data  files" 

30 

31  iinclude  <stdio.h> 

32  iinclude  <string.h> 

33  iinclude  "color. h" 

34  iinclude  "dw.h" 

35  iinclude  "dwmenu.h" 

36  iinclude  "dwsystem.h" 

37 

38  iinclude  "itemfns.h" 

39  iinclude  "rmrs.h" 

40 

41  HWND  *  mmaln; 

42 

43  void  globhelp{MENUITEM  *  item) ; 

44  void  IntroScreen (void) ; 

45  void  SetupMenu (void) ; 

46 

47  void  SetupMenu (void) 

48  ( 

49  HWND  FlHelpWin; 

50 

51  MENUITEM  *  System; 

52  MENUITEM  *  SystAbot,  *  SystXDOS,  *  SystCOMM,  •  SystQuit; 

53 

54  MENUITEM  *  EdFiles; 

55  MENUITEM  *  EdFlsRep,  *  EdFlsEqSup,  •  EdFlsEqReq,  *  EdFlsMaSup,  *  EdFlsMaReq; 

56  MENUITEM  *  EdFlsReset,  *  EdFlsRepInfo,  •  EdFlsFacPrty; 

57 

58  MENUITEM  *  InitSetup; 

59  MENUITEM  *  InitNwFi,  •  InltMatl,  *  InltEqui; 

60 

61  MENUITEM  *  Process; 

62  MENUITEM  *  ProcAuto,  *  ProcFacl,  *  ProcComp; 

63 

64  MENUITEM  *  Schedule; 

65  MENUITEM  *  SchdFull,  *  Schdinc,  *  SchdPrior; 

66 

67  MENUITEM  *  ChangeStatus; 

*  68  MENUITEM  *  ChngComp,  *  ChngCanc; 

69 

70  MENUITEM  *  GenerateReport; 

71  MENUITEM  •  GnRpSura,  *  GnRpDet,  *  GnRpGant; 

72 

73  /•**  set  up  help  micro-window  "FI  -  HELP"  ***/ 

74  FlHelpWin  »  vcreatd,  80,  EMPHNORML,  NO)  ; 
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75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 

103 

104 

105 

106 

107 

108 

109 

110 
111 
112 

113 

114 

115 

116 

117 

118 

119 

) ; 

120 

atlFn) ; 
121 

qulFn) ; 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 


vlocate<FlHelpWin,  24,  0) ; 

vratputs (FlHelpWin,  0,  0,  RED_ON_WHirE,  "  FI  ; 
vatputs (FlHelpWin,  0,  4,  "Help  3  "); 
visible (FlHelpWin,  YES,  NO) ; 

/***  define  main  menu  •»•/ 
mmain  -  MNUCreateHdr (PULLDOWN) ; 

MNOSetGlobaiHelp(niinain,  globhelp) ; 

MNUSetShadow (mmain,  SHAD0W75,  BOTTOMRIGHT) ; 

MNUShowHotKey (mmain,  YES); 

MNUSetDescPosition (mmain,  24,  11); 

MNUSetDownIndicator (mmain,  NO) ; 

MNUSetSpaces (mmain,  2) ; 

MNUSetDropOown (mmain,  YES); 

MNUSetAttributes (mmain,  EMPHNOHML,  EMPHNORML,  EMPHNORML,  REVNORML/*  HELP*/,  HIGHNORML, 
EMPHNORML,  BEVERR,  EMPHNOHML) ; 

/***  define  menu  bar  items  ••*/ 

System  -  MNUAddItem("  System  ",  SYSTDSCRP,  'y',  ALTY,  NULL,  mmain,  NOLLF) ; 

InitSetup  -  MNUAddltem("  Init/Setup  ",  INITDSCRP,  'I',  ALTI,  NOLL,  mmain,  NULLF) ; 
Process  -  MNUAddItem("  Process  ",  PROCDSCRP,  'P',  ALTP,  NULL,  mmain,  NOLLF); 

Schedule  -  MNUAddItem("  Schedule  ",  SCHDDSCRP,  'S',  ALTS,  NULL,  mmain,  NULLF); 
ChangeStatus  -  MNUAddItem("  Change  Status  ",  CHNGDSCRP,  'C',  ALTC,  NULL,  mmain,  NULLF); 
GenerateReport  -  MNUAddItem("  Gen  Report  ",  GREPDSCRP,  'R',  ALTR,  NULL,  mmain,  NULLF); 

/***  set  up  pull  down  menus  »**/ 

SystAbot  -  MNUAddItem ("About",  SABTDSCRP,  '  ' ,  0,  System,  mmain,  SystAbotFn); 


EdFiles  -  MNUAddItem ("Edit  Data",  ED,  '  ',  ALTE,  System,  mmain,  NULLF); 

EdFlsRep  -  MNUAddItem ("Repair  File",  ED,  '  ',  0,  EdFiles,  mmain,  EdFlsBepFn); 

EdFlsEqSup  “  MNUAddItem ( "Equip  Supply",  ED,  '  ',  0,  EdFiles,  mmain,  EdFlsEqSupFn) ; 
EdFlsEqReq  «  MNUAddItem ("Equip  Required",  ED,  '  ',  0,  EdFiles,  mmain,  EdFlsEqRoqFn) ; 
EdFlsMaSup  -  MNUAddItem ("Material  Supply",  ED,  '  ' ,  0,  EdFiles,  mmain,  EdFlsMaSupFn) ; 
EdFlsMaReq  -  MNUAddItem ("Material  Required",  ED,  '  ' ,  0,  EdFiles,  mmain,  EdFlsMaReqFn) ; 
EdFlsRepInfo  =  MNUAddItem ("Repair  Info",  ED,  '  ' ,  0,  EdFiles,  mmain,  EdFlsRepInfoFn) ; 
EdFlsFacPrty  -  MNUAddItem ("Facility  Priority",  ED,  '  ',  0,  EdFiles,  mmain,  EdFlsFacPrtyFn) ; 
EdFlsReset  -  MNUAddItem ("Reset  All  Data",  ED,  '  ',  0,  EdFiles,  mmain,  EdFlsResetFn) ; 

SystXDOS  -  MNUAddItem ("DOS  shell",  SDOSDSCRP,  '  ',  ALTD,  System,  mmain,  SystXDOSFn) ; 


MNUSetSeparatorBefore (SystXDOS) ; 


SystQuit 

InltNwFi 

InitMatl 

InitEqui 


MNUAddItem ("Quit",  SQUTDSCRP,  '  ',  ALTO,  System,  mmain,  SystQuitFn) ; 

MNUAddItem ("Load  new  AB  supply  file",  ILNSDSCRP,  '  ',  0,  InitSetup,  mmain,  NOLLF 
MNUAddItem ("AB  materials  supply  file",  ILMTDSCRP,  '  ' ,  0,  InitNwFi,  mmain,  InitM 
MNUAddItem ("AB  equipment  supply  file",  ILEQDSCRP,  '  ' ,  0,  InitNwFi,  mmain,  InitE 


ProcAuto 

ProcFacl 

ProcComp 


MNUAddItem ("Auto  Mode",  PAUTDSCRP,  '  ',  0,  Process,  mmain,  ProcAutoFn) ; 
MNUAddItem ("Select  facility",  PSELDSCRP,  '  ' ,  0,  Process,  mmain,  ProcFaclFn) ; 
MNUAddItem ("Compromise  Retry",  PCOMDSCRP,  '  ',  0,  Process,  mmain,  ProcCompFn) ; 


SchdFull  -  MNUAddItem ("Full  Schedule",  SFULDSCRP,  '  ' ,  0,  Schedule,  mmain,  SchdFullFn) ; 
Schdinc  -  MNUAddItem ("Update  Schedule",  SINCDSCRP,  '  ',  0,  Schedule,  mmain,  SchdIncFn) ; 
SchdPrior  «  MNUAddItem ("Set  Priority",  SPBIDSCRP,  '  ',  0,  Schedule,  mmain,  SchdPriorFn) ; 


ChngComp  -  MNUAddItem ("Completed",  CCOMDSCRP,  '  ',  0,  ChangeStatus,  mmain,  ChngCompFn) ; 
ChngCanc  «■  MNUAddItem ("Canceled",  CCANDSCRP,  '  ',  0,  ChangeStatus,  mmain,  ChngCancFn) ; 


GnRpSum  •  MNUAddItem ("Summary  Schedule",  GSCHDSCRP,  '  ',  0,  GenerateReport,  mmain,  GnRpSchd 


Fn); 

135  GnRpDet  »  MNUAddItem ("Detailed  Schedule",  GSCHDSCRP,  '  ',  0,  GenerateReport,  mmain,  GnRpSch 
dFn)  ; 

136  GnRpGant  -  MNUAddItem ("Gantt  Chart",  GGANDSCRP,  '  ',  0,  GenerateReport,  mmain,  GnRpGantFn) ; 

137 

138  1 

139 

140  #define  HELPFILENAME  "RMRS.HLP" 

141  tdefine  HWLR  25 

142  #define  HWLC  80 

143  Idefine  HWPR  7 


« 


t 


f 
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144  *deflne  HWPC  40 

145  fdeflne  HWROW  9 

146  #define  HWCOL  20 

147 

148  void  globhelp {MENUITEM  *  Item) 

149  { 

150  HWND  hwinptr; 

151  char  *  helpstr; 

152 

153  /*  DEFINE  HELP  WINDOW  */ 

154  hwinptr  -  vcreat (HWLR,  HWLC,  HELP,  NO) ; 

155  vwind (hwinptr,  HWPR,  HWPC,  0,  0); 

156  vlocate (hwinptr,  HWROW,  HWCOL); 

157  vframe (hwinptr,  REVHIGHHELP,  FRSINGLE) ; 

158  vmtitle (hwinptr,  TOP,  CENTERJUST,  REVHIGHHELP,  "  RMRS  Help  (ESC  to  quit)  ") ; 

159  visible (hwinptr,  YES,  YES) ; 

160 

161  helpstr  -  ExtractFromHelpFile (HELPFILENAME, 

162  (item->strtoggle  ?  item->iteml  ;  lteni->item0) ) ; 

163  if  (helpstr) 

164  ( 

165  vdispstr (hwinptr,  helpstr); 

166  3croll_wln_lceys  (hwinptr,  HWLR,  HWLC,  HWPR,  HWPC); 

167  } 

168  else 

169  { 

170  /*  NO  HELP  FILE  */ 

171  vatputs  (hwinptr,  2,  1,  ''<Cannot  find  help  file  '"); 

172  vputs (hwinptr,  HELPFILENAME); 

173  vputs (hwinptr,  "'>"); 

174  getchO; 

175  ) 

176 

177  /*  DELETE  HELP  WINDOW  */ 

178  vdelete (hwinptr,  NONE); 

179  ) 

180 

181  void  IntroScreen (void) 

182  { 

183  HWND  IntroScreen; 

184 

185  /*»»  set  bac)iground  ***/ 

186  pclrchar (SHADOW25) ; 

187 

188  /*•»  display  intro  screen  **•/ 

189  IntroScreen  »  vcreat (17,  70,  REVNORML,  YES); 

190  vlocate (IntroScreen,  3,  5); 

191  vshadow (IntroScreen,  NULL,  SHADOW75,  BOTTOMRIGHT) ; 

192  vframe (IntroScreen,  REVNORML,  FRDOUBLE) ; 

193  vatputas (IntroScreen,  1,  8,  HELP,  "  Automated  RESOURCE  MANAGER  /  REPAIR  SCHEDULER  (RMRS)") 


194  vatputs (IntroScreen,  2,  9,  "Automated  RESOURCE  MANAGER  /  REPAIR  SCHEDULER  (RMRS)"); 

195  vatputas (IntroScreen,  3,  8,  HELP,  "  Automated  RESOURCE  MANAGER  /  REPAIR  SCHEDULER  (RMRS)") 


196 

197 

198 

199 

200 
201 
202 

203 

204 

205 

206 

207 

208 

209 

210 
211 
212  > 


vatputs (IntroScreen,  5,  9,  "  for  the  ")  ; 

vatputs (IntroScreen,  7,  9,  "  Post-Attac)c  Facility  Damage  Assessment  System  ") ; 

vatputs  (IntroScreen,  9,  9,  "  «<  POST  -  DAM  >>>  ")  ; 

vatputs (IntroScreen,  10,  28,  "Version  ") ; 

vputs (IntroScreen,  VERSION); 

vputs (IntroScreen,  "."); 

vputs (IntroScreen,  REVISION) ; 

vatputs (IntroScreen,  13,  9,  "  AFCESA/RACS  Tyndall  AFB,  FL") ; 

vatputs (IntroScreen,  14,  9,  "  Applied  Research  Associates,  Inc."); 

vatputs (IntroScreen,  16,  9,  "  Hit  any  Icey  to  continue  ...  ") ; 

visible (IntroScreen,  YES,  YES); 


/*»*  vfait  for  keystro)ce  and  return  ***/ 
getlcey  ()  ; 

vdelete (IntroScreen,  NONE) ; 
return; 
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1  #lncXude  <3tdio.h> 

2  linciude  <math.h> 

3  flnclude  <conlo.h> 

4  #lnclude  <stdlib.h> 

5  tinclude  <dir.h> 

6  tinclude  <tinie.h> 

7  tinclude  <string.h> 

8  tinclude  <alloc.h> 

9  tinclude  "d4base.h" 

10  tinclude  "dw.h" 

11  tinclude  "dwmenu.h" 

12  tinclude  "dwsystem.h" 

13  tinclude  "rmrsutil.h" 

14  tinclude  "rmrs.h" 

15 

16  tdefine  BUFFLENGTH  300 

17 

18  int  ReprtSched <void) 

19  i 

20  Int  status,  elenum,  cnt  •  0; 

21  int  r  ”  0,  c  -  1,  key,  Iwint,  Iwlnc,  pwlnr,  pwinc; 

22  long  repld,  facnum; 

23  tlme_t  start,  dur,  end,  currtime; 

24  char  eledescstr [53} ,  dammodestr [53] ,  repstgystr [531 ,  schedstatus,  *  tlmeptr; 

25  char  facfuncstr [53] ; 

26  HWND  win; 

27 

28  Iwlnr  -  200; 

29  Iwinc  -  78; 

30  pwlnr  -  21; 

31  pwinc  -  78; 

32  /*  WINDOW  STUFF  */ 

33  win  =  vcreat (Iwinr,  Iwinc,  bldattr (LIGHTBLUE,  0),  YES) ; 

34  If  (win  <  1)  u4error<-l,  "Error  creating  window", (char  •)  0) ; 

35  vwlnd<wln,  pwlnr,  pwinc,  0,  0) ; 

36  vlocate<wln,  2,  1); 

37  vframelwin,  REVNORML,  FRDOUBLE) ; 

38  vmtitle<win,  _T0P,  CENTERJUST,  REVNORML,  "  Report  -  Repair  Schedule  "); 

39 

40  /*  OPEN  DBF  AND  INDEX  FILES  */ 

41  if  (open  egpreq(l)) 

42  { 

43  u4error(-l,  "BAD  RETURN  CODE",  "OPEN_EQPREQ", (char  *)  0) ; 

44  vdeletelwln,  NONE); 

45  return  (-1); 

46  ) 

47  if  (open_repinfo (1)  ) 

48  { 

49  u4error(-2,  "BAD  RETURN  CODE",  "OPEN_REPINFO", (char  *)  0) ; 

50  vdelete(wln,  NONE) ; 

51  return  (-2); 

52  ) 

53  if  (open  repair (1)) 

54  ( 

55  u4error(-3,  "BAD  RETURN  CODE",  "OPEN_REPAIR", (char  •)  0); 

56  vdeleteiwln,  NONE); 

57  return  (-3) ; 

58  ) 

59 

60  d4select  (eqpreq_dbf )  ; 

61  14select (eqpreq_ndx2) ; 

62  status  «  x4seek_str ("REPAIR  TEAM"); 

63  switch  (status) 

64  ( 

65  case  (0)  : 

66  case  (1)  : 

67  while  ((!  d4eof())  4S {is_repteam () ) ) 

68  ( 

69  switch  (f4char(f4ref ("STATUS"))) 

70  ( 

71  case  ('A')  ; 

72  case  <'L')  : 

73  repld  -  f41ong (f 4ref ("REPID") ) ; 

74  start  -  f41ong (f4ref ("START")); 
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dur  -  f41ong(f4ref ("DURATION") ); 
schedstatus  -  f4char If4ref ("STATUS") ) ; 
end  -  (start  +  dur)  ; 

d4select (ropair_dbf) ; 

14 select (repalr_ndxl) t 

x4seek_double (repld) ; 

facnum  -  f41ong(f4ref ("FACNOM") ) ; 

d4select (repinfo_dbf) t 

14select {repinfo_ndxl) ; 

x4see)c_double  (repid)  ; 

eienum  =  f lint (f4ref ("ELENUM") » ; 

strcpy (eledescstr,  f 4str (f 4ref ("ELEDESC") ) ) ; 

strcpy (facfuncstr,  f43tr <f 4ref ("FACFUNC") ) ) ; 

strcpy (dammode St r,  f4str (f4ref ("DAMMODE") ) ) ; 

strcpy (repstgystr,  f43tr (E4ref ("HEPSTGY") ) ) ; 

if  ((cnt  —  0)) 

( 

vatputs(win,  r++,  c,  "Schedule  Listing"); 
currtlme  «  time (NULL) ; 
timeptr  -  ctime(S  currtime) ; 
timeptr[strlen(timeptr)  -  1]  -  '\0'; 
vatputf(win,  r++,  c,  "Generated  :  %3",  timeptr); 
vatputf(win,  r++,  c,  " - 


d43elect (eqpreq_dbf ) ; 
r++; 

vatputf(wln,  r++,  c,  "Repair  ID  : 

timeptr  -  ctlme(«  start); 

timeptr [strlen (timeptr)  -  1]  «  '\0'; 

vatputf (win,  r++,  c,  "START  TIME  ; 

timeptr  -  ctime(s  end); 

timeptr [strlen (timeptr)  -  1]  »  '\0'; 


L9d  ",  repid); 


timeptr); 


110 

vatputf (win. 

r++, 

0, 

"END  TIME  : 

%s",  timeptr); 

111 

vatputf (win, 

r++. 

c, 

"facility  Hum  : 

B%-ld",  facnum) ; 

112 

vatputf (win. 

r++. 

C, 

"facility  Func: 

4-s”,  facfuncstr); 

113 

vatputf (win. 

r++. 

C, 

"element  #  : 

%d",  eienum); 

114 

vatputf (win. 

r,  c. 

ft 

elem  desc  ;  %■ 

-193",  eledescstr); 

115 

vatputf (win. 

r++, 

c 

+  60,  "SCHD  STATUS:  %c",  schedstatus); 

116 

vatputf (win. 

r++. 

C/ 

"damage  mode  : 

%  s " ,  dammode  St  r ) ; 

117 

vatputf  (win. 

r++, 

C, 

"rep  strategy  : 

%s",  repstgystr); 

lie 

cnt++; 

119 

break; 

120 

default  :; 

/•do  nothing 

121  ( 

122  d4 select (eqpreq_dbf) ; 

123  d43]tlp(l); 

124 

125  ) 

126  d4close_all{) ; 

127  visible (win,  YES,  YES) ; 

128  scroll_win_keys (win,  Iwlnr,  Iwinc,  pwinr,  pwinc) ; 

129  cnt  -  vfputwin(win,  "SCHED.OOT",  1); 

130  if  (cnt  I-  win)  u4error(cnt,  "DID  NOT  WRITE  FILE",  (cha; 

131  vdelete(win,  NONE); 

132  brea)c; 

133  case  (2)  : 

134  case  (3)  : 

135  default  :;  /*  no  repairs  in  EQPRE(5.I 

136  u4error(0,  "REPORT  GENERATION  ERROR", (char  *)  0) ; 

137  } 

138  return  (1) ; 

139  ) 

140 

141  int  is  repteam (void) 

142  { 

143 

144  if  (strstr  (f4str (f4ref ("EQPDESC") ) ,  "repair  team")  !=NOLL) 

145  return  (1); 

146  else 

147  return  (0); 


d4close_all  {)  ; 
visible (win,  YES,  YES) ; 

scroll_win_keys  (win,  Iwlnr,  Iwinc,  pwinr,  pwinc) ; 
cnt  -  vfputwin(win,  "SCHED.OOT",  1); 

if  (cnt  I-  win)  u4error(cnt,  "DID  NOT  WRITE  FILE",  (char  *)  0) ; 
vdelete(win,  NONE); 
break; 
case  (2)  : 
case  (3)  : 

default  :;  /*  no  repairs  in  EQPRE(5.DBF 

u4error(0,  "REPORT  GENERATION  ERROR",  (char  *)  0)  ; 

} 

return  (1)  ; 
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148  ) 

149 

150  /*  ReprtGant 

151  * 

152  * 

153  */ 

154  int  ReprtGantt (void) 

155  { 


156 

int  done,  i,  thisone,  r  -  0,  c  -  1; 

157 

char  status,  linebuff [BUFFLENGTH] , 

curdesc[26],  *  tmpdesc,  *  timeptr; 

158 

long  start,  duration,  currepid,  minstart,  delta  -  900L,  curtime,  maxend; 

159 

long  cureqpid,  eqpidfld,  eqpdescfid,  egpid; 

160 

long  statusfld,  startfld,  durationfld,  repldfld,  repid; 

161 

aWND  win; 

162 

unsigned  int  key  -  0; 

163 

int  Iwinr,  Iwinc,  pwinr,  pwinc; 

164 

165 

/*  WINDOW  STUFF  */ 

166 

Iwinr  ”  100; 

/*  logical  window  rows 

*/ 

167 

Iwinc  «  300; 

/*  logical  window  columns 

*/ 

168 

pwinr  -  21; 

/•  physical  window  rows 

*/ 

169 

pwinc  -  78; 

/*  physical  window  columns 

*/ 

170 

win  -  VC reat (Iwinr,  Iwinc,  bldattr (LIGHTBLUE,  0),  YES); 

171 

vwlnd(win,  pwinr,  pwinc,  0,  0); 

172 

vlocate(win,  2,  1); 

173 

vframe{win,  REVNORML,  FRDOUBLE) ; 

174 

vmtitle(win,  TOP,  CENTERJUST,  REVNORML,  "  Report  -  Gantt  Chart  ") ; 

175 

176 

/*  OPEN  DBF  AND  INDEX  FILES  */ 

177 

if  (open  egpreq(l)) 

178 

( 

179 

u4error(-l,  "BAD  RETURN  CODE", 

"OPEN_EQPREQ", (char  *)  0); 

180 

vdelete(win,  NONE); 

181 

return  (-1)  ; 

182 

) 

183 

i4select  (eqpreq;_ndx4) ; 

/•  key  -  START 

*/ 

184 

185 

statusfld  -  f4ref ("STATUS") ; 

186 

startfld  -  f4ref ("START"); 

187 

durationfld  -  f4ref ("DURATION") ; 

188 

repidfld  «  f4ref ("REPID") ; 

189 

eqpidfld  -  f4raf ("EQPID") ; 

190  eqpdescfld  -  f4ref ("EQPDESC") ; 

191 

192  /♦***  get  MINSTART  4  MAXEND  ****/ 

193  minstart  -  2147000000; 

194  maxend  -  OL; 

195  x4top(); 

196  while  (i  d4eof()) 

197  { 

198  status  f4char  (statusfld)  ,* 

199  start  =  f41ong(startfld) ; 

200  duration  -  f41ong<durationfld) ; 

201  if  ((status  «-  'A'  II  status  —  'L')  &&  start  <  minstart) 

202  minstart  -  start; 

203  if  ((status  --  'A'  II  status  —  'L')  ti  start  +  duration  >  maxend) 

204  maxend  -  start  +  duration; 

205  x4slcip(lL); 

206  } 

207 

208  /*  BUILD  SCHEDULE  */ 

209  curtime  -  time (NULL); 

210  timeptr  -  ctime(s  curtime); 

211  timeptr (strlen (timeptr)  -  1]  »  '\0'; 

212  vatputf (win,  r++,  c,  "Schedule  as  of  :%s",  timeptr); 

213  vatputf (win,  r++,  c,  "Each  character  represents  %ld  minutes",  delta  /  60); 

214  vatputf (win,  r++,  c,  "Total  repair  time  is  %.2f  hours",  ((float)  (maxend  -  minstart))  /  360 

0.); 

215  vatputf (win,  r++,  c,  "Repair  Schedule"); 

216  vatputf (win,  r++,  c,  "%203|",  "  "); 

217  x4top(); 

218  while  C  d4eof()) 

219  { 

220  for  (i  -  0;  i  <  299;  i++)  linebuff[l]  -  32; 
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% 


221 

222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 
261 
262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 
281 
282 
283 


linebuff [299]  -  '\0'; 

status  -  f 4char [statusfld) ; 

while  (!  (status  --  'A'  II  status  -«  'L')) 

( 

x4sklp (IL) ; 

status  «  f4char (statusfld) ; 

currepid  -  f41ong(repidfld) ; 
start  =  f41ong (startfld) ; 
duration  =•  f41ong  (durationfld)  ; 

Add2Sch (linebuff,  minstart,  start,  duration,  delta,  status,  currepid); 
TrimSch (linebuff) ; 

vatputf(win,  r++,  c,  "REPID  %-41d%10s:%s",  currepid,  "  ",  linebuff); 
while  (currepid  --  f 41ong  (ret>) df  Id) ) 

{ 

x4s)clp  (IL)  ; 

) 

) 

i4select (eqpreq_ndx5) ; 
r++; 

vatputf(win,  r+*,  c,  "Equipment  Allocation  Schedule"); 
vatputf (win,  r++,  c,  "%20s|",  "  "); 
x4top  0 ; 

while  (I  d4eof()) 

( 

for  (i  -  0;  1  <  299;  1++)  linebuff [i]  -  32; 

linebuff [299]  -  '\0'; 

cureqpld  -  f41ong (eqpidfld) ; 

strcpy (curdesc,  f 4str (eqpdescfld) ) ; 

strupr (curdesc) ; 

c4trim_n (curdesc,  25); 

eqpid  -  f4 long (eqpidfld) ; 

thisone  0; 

while  (cureqpld  —  eqpid  a  d4eof()) 

{ 

status  •  f4char (statusfld) ; 

if  ((status  'A'  II  status  »«  'L'  II  status  ««  'C')) 

I 

thisone  =  1; 

start  -  f41ong (startfld) ; 
duration  ••  f41ong  (durationfld)  ; 
tmpdesc  •  f4str (eqpdescfld) ; 
strupr (tmpdesc) ; 
c4trim  n(tmpdesc,  255); 
repid  -  f41ong(f4ref ("REPID") ) ; 

Add2Sch (linebuff ,  minstart,  start,  duration,  delta,  status,  repid); 

} 

x4s)iip  (111)  ; 

eqpid  «  f41ong (eqpidfld) ; 

} 

TrimSch (linebuff) ; 
if  (thisone) 

vatputf (win,  r++,  c,  "%-123  ID  %-41d:%s",  curdesc,  cureqpld,  linebuff); 

) 

d4close_all 0 ; 
visible (win,  YES,  YES) ; 

scroll  win__lreys  (win,  Iwlnr,  Iwinc,  pwinr,  pwlnc)  ; 
vfputwln(win,  "GANTT. OUT",  1) ; 
vdelete (win,  NONE) ; 
return  (0) ; 


284  static  int 

285  ( 

286  int  i; 

287  for  (i 

288  { 

289  if 

290  ( 

291 

292 

293 

294  ) 


TrimSch (char  *  linebuff) 


=  298;  i  >  -1/  i— ) 

(linebuff [i]  !-  32  M  i 

if  (i)  linebuff [i  +  1] 
else  linebuff [0]  ■=  '\0' 
break; 


0) 

\0'; 
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295  ) 

296  ) 

297 

298  static  int  Add2Sch(char  *  linebuff,  long  mlnstart,  long  start,  long  duration, 

299  long  delta,  char  marker,  long  repld) 

300  ( 

301  double  dbeg,  dend; 

302  Int  beg,  end,  1,  buffstart,  buffend; 

303 

304  dbeg  -  ((double)  (start  -  mlnstart))  /  ((double)  delta); 

305  dend  •  dbeg  +  ((double)  duration  /  ((double)  delta)); 

306  d]»eg  >  ((  (cell  (dbeg)  -  dbeg)  <  .5)  ?  cell  (dbeg)  :  floor  (dbeg) )  ; 

307  dend  -  (( (cell (dend)  -  dend)  <  .5)  ?  cell (dend)  :  floor (dend) ) ; 

308 

309  bei^  >  (int)  dbeg, 

310  end  -  (int)  dend  -  1; 

311 

312  buffstart  -  0; 

313  buffend  -  298; 

314 

315  if  (beg  <  0  II  beg  >  298)  return  (-1); 

316  if  (end  >  298)  end  -  298; 

317  for  (1  -  beg;  1  <•  end;  1++)  linebuff [1]  »  (char)  (repld  +  64); 

318  return  (1); 

319  ) 
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1  #lnclude  <stdio.h> 

2  ♦include  <conio.h> 

3  ♦include  <stdlib.h> 

4  ♦include  <dir,h> 

5  ♦include  <time.h> 

6  ♦include  <string,h> 

7  ♦include  <alloc.h> 

8  ♦include  "d4base.h" 

9  ♦include  “dw.h" 

10  ♦include  "dwraenu.h" 

11  ♦include  "dwsystem.h" 

12  ♦include  "rmrs.h" 

13 

14 

15  typedef  struct 
15  { 

15  Int  dbf; 

16  int  ndx; 

17  long  rec; 

18  ) 

18  CONTEXT; 

19 

20  typedef  struct  1111 
20  { 

21  long  val; 

22  struct  1111  *next; 

23  ) 

23  LLLL; 

24 

25  int  CountLLLLNodes (LLLL  *  ptr) ; 

26  void  context_save (CONTEXT  *) ; 

27  void  context_restore (CONTEXT  *); 

28  LLLL  *  CreateLLLLNode (void) ; 

29  int  3croll_win_keya (int,  int,  int,  int,  int) ; 

30  int  InLLLL(LLLL  *  ptr,  long); 

31  int  DumpLLLLNodes (LLLL  *  ptr,  FILE  *  deblog,  char  *  spaces); 

32  LLLL  *  FreeLLLL(LLLL  *  ptr) ; 

33 

34  void  context_save (CONTEXT  *  def) 


35  { 

36 

def->rec  « 

d4recno()  ; 

37 

def->ndx  « 

i43elect  (-1) ; 

38 

def->dbf  « 

d43elect  (-1) ; 

39  } 

40 

41  void  context_restore (CONTEXT  *  def) 

42  { 

43  if  (def->dbf  >  -1) 

44  ( 

45  d4select (def->dbf) ; 

46  i4select (def~>ndx) ; 

47  if  (d4eof())  d4s)cip(-lL)  ; 

48  if  (d4bof())  d4s)iip(lL); 

49  d4go (def->rec) ; 

50  ) 

51  } 

52 

53  int  scroll_win_keys (HWND  win,  int  Iwinr,  int  Iwinc,  int  pwinr,  int  pwinc) 

54  { 

55  unsigned  int  key  «  13; 

56  while  (key  !=  ESC) 

57  { 

58  switch  (key  -  getkeyO) 

59  { 

60  case  CTRLCURRT  : 

61  if  (vmovedir (win,  0,  pwinc)  !”  DWSOCCESS) 

62  vloc(win,  0,  0) ; 

63  break; 

64  case  CTRLCURLF  : 

65  if  (vmovedir (win,  0,  -  pwinc)  !-  DWSOCCESS) 

66  vloc(win,  0,  0) ; 

67  case  CUROP  : 

68  vmovedir (win,  -1,  0); 

69  break; 
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70 

case  CURDN  ; 

71 

vmovedir (win,  1,  0); 

72 

break; 

73 

case  CURLF  : 

74 

vmovedir (win,  0,  -1); 

75 

break; 

76 

case  CURRT  ; 

77 

vmovedir (win,  0,  1); 

78 

break; 

79 

case  CTRLUP  ; 

BO 

if  (vmovedir (win,  -  pwinr,  i 

81 

vloc(win,  0,  0); 

82 

break; 

83 

case  PGUP  : 

84 

if  (vmovedir (win,  -  pwinr,  i 

85 

vloc(win,  0,  0); 

86 

break; 

87 

case  CTRLCURDN  ; 

88 

if  (vmovedir (win,  pwinr. 

0) 

89 

vloc(win,  Iwinr  -  pwinr. 

90 

break; 

91 

case  PGDN  : 

92 

if  (vmovedir (win,  pwinr. 

0) 

93 

vloc(win,  Iwinr  -  pwinr. 

94 

break; 

95 

case  HOME  : 

96 

vloc(win,  0,  0); 

97 

break; 

98 

case  EMDKEY  : 

99 

vloc (win,  Iwinr  -  pwinr. 

0), 

100 

break; 

101 

default  : 

102 

break; 

103 

) 

104 

) 

105 

return  (0); 

106  } 

107 

108  Int 

InLLLL(LLLL  *  ptr,  long  val) 

109  ( 

110 

If  (ptr  —  NULL)  return  (0); 

111 

112 

if  (val  —  ptr->val)  return  (1); 

113 

114 

if  (ptr->val  -lOOOOOOL) 

115 

( 

116 

ptr->val  “  val; 

117 

return  (0); 

118 

) 

119 

120 

while  (ptr->next) 

121 

( 

122 

ptr  «  ptr->next; 

123 

if  (val  ptr->val)  return 

(1); 

124 

) 

125 

ptr->next  -  CreateLLLLNodeO; 

126 

ptr  -  ptt->next; 

127 

ptr->val  -  val; 

128 

return  (0); 

129  ) 

130 

131 

132  LLLL  *  CreateLLLLNodeO 

133  { 

134 

LLLL  *  ptr; 

135 

ptr  -  (LLLL  *)  malloc(slzeof  (LLLL)) 

136 

ptr->val  -  -lOOOOOOL; 

137 

ptr->naxt  »  NULL; 

138 

return  (ptr)  ; 

139  ) 

140 

141  Int 

Count LLLLNodes (LLLL  *  ptr) 

142  { 

143 

int  i  “  0; 

!-  DWSUCCESS) 


!-  DWSUCCESS) 


-  DWSUCCESS) 
0); 


-  DWSUCCESS) 
0); 
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144  if  <ptr  —  NULL) 

145  ( 

146  return  (i); 

347  } 

148  while  <ptr->next) 

149  { 

150  i++; 

151  ptr  “  ptr->next; 

152  ) 

153  1++; 

154  return  (i); 

155  ) 

156 

157  int  DumpLLLLNodes (LLLL  *  ptr,  FILE  *  deblog,  char  *  spaces) 

158  { 

159  int  i  »  C, 

160  if  (ptr  —  NOLL) 

161  ( 

162  return  (1); 

163  ) 

164  while  (ptr->next) 

165  { 

166  i++; 

167  fprintf (deblog,  "%snode  %d:  %ld\n",  spaces,  1,  ptr->val) ; 

168  ptr  “  ptr->next; 

169  ) 

170  i++; 

171  fprintf (deblog,  "%snode  %d:  %ld\n",  spaces,  i,  ptr->val) ; 

172  return  (i)/ 

173  ] 

174 

175  LLLL  *  FreeLLLL(LLLL  *  ptr) 

176  { 

177  LLLL  *  tmp; 

178 

179  while  (ptr->next  I*  NOLL) 

180  { 

181  tmp  •  ptr; 

182  ptr  -  ptr->next; 

183  free (tmp); 

184  ) 

185  free (per); 

186  return  (NULL) ; 

187  } 

188 

189  /*  FUNCTIC.iS  TO  OPEN  DBF  FILES  AND  ATTACH  ALL  INDEX  FILES 

190  * 


191 

192 

* 

DBFfname 

NDXREF 

NDXfname 

KEY 

193 

* 

repair 

repair  ndxl 

reprndxl 

REPID 

194 

* 

repair  ndx2 

reprndx2 

upper (STATUS) +3tr (PRIORITY, 2, 0) 

195 

* 

+str(FACNUM, 4,0) 

196 

* 

197 

* 

faeprt 

faeprt  ndxl 

facpndxl 

FACNOM 

198 

* 

199 

* 

eqpsup 

egpsup  ndxl 

eqsundxl 

upper (EQPDESC) 

200 

* 

201 

* 

eqpreq 

eqpreq_ndxl 

eqrendxl 

REPID 

202 

it 

eqpreq_ndx2 

eqrendx2 

upper  (EQPDESC)  +str  (START,  10,  0) 

203 

* 

eqpreq_ndx3 

eqrendx3 

upper (EQPDESC) +str (START+DURATION, 10,0) 

204 

* 

eqpreq  ndx4 

eqrendx4 

START 

205 

* 

eqpreq  ndx5 

eqrendx5 

upper (EQPDESC) +str (EQPID, 10,0) 

206 

* 

207 

* 

matsup 

matsup  ndxl 

masundxl 

upper (MATDESC) 

208 

* 

209 

* 

matreq 

matreq  j dxl 

marendxl 

REPID 

210 

★ 

mat req_ndx2 

marendx2 

MATID 

211 

* 

212 

* 

repinfo 

repinfo  ndxl 

repindxl 

REPID 

213 

* 

214 

*/ 

215 

216 

int 

repair  dbf,  repair  ndxl, 

repair  ndx2; 

217 

int 

eqpsup_dbf,  eqpsup_ndxl; 
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218  int  eqpreq_dbf,  eqpreq__ndxl ,  eqpreq_ndx2,  eqpreq_ndx3, 

219  eqpreq_ndx4,  eqpreq_ndx5; 

220  int  matsup_dbf,  matsup_ndxl; 

221  int  matreq_dbf,  matreq_ndxl,  matreq_ndx2; 

222  int  repinfo_dbf,  repinfo_ndxl; 

223  int  facprt_dbf,  facprt_ndxl; 

224 

225  int  open_repair (int  rendx) 

226  ( 

227  int  status  -  0; 

228  repair_dbf  -  d4use_excl ("REPAIR, DBF") ; 

229  if  (repair_dbf  <  OT  return  (repair_dbf ) ; 

230  x4filter (d4deleted) ; 

231  repair_ndxl  -  i4open ("REPRNDXl .NDX") ; 

232  if  (repair_ndxl  <  0)  return  (repair_ndxl) ; 

233  repair_ndx2  -  i4open ("REPRNDX2 ,NDX") ; 

234  if  (repair_ndx2  <  0)  return  (repair_ndx2) ; 

235 

236  if  (rendx)  status  -  i4reindex (-1) ; 

237  return  status; 

238  ) 

239 

240  int  open_eqpsup ( Int  rendx) 

241  ( 

242  int  status  -  0; 

243  eqpsup_dbf  •  d4use_excl ("eqpsup.DBF") ; 

244  if  (eqpsup_dbf  <  0)  return  (eqpsup_dbf) ; 

245  x4filter (d4deleted) ; 

246  eqp3up_ndxl  -  i4open ("EQSUNDXl .NDX") ; 

247  if  (eqpsup_ndxl  <  0)  return  (eqp3Up_ndxl) ; 

248  if  (rendx)  status  •  i4reindex (-1) ; 

249  return  status; 

250  ) 

251 

252  int  open_eqpreq ( int  rendx) 

253  { 

254  int  status  -  0; 

255  eqpreq_dbf  »  d4use_exci ("eqpreq.DBF") ; 

256  if  (eqpreq_dbf  <  0)  return  <eqpreq_dbf ) ; 

257  x4filter (d4deleted) ; 

258  eqpreq_ndxl  -  i4open ("EQRENDXl .NDX") ; 

259  if  (eqpreq_ndxl  <  0)  return  (oqpreq_ndxl) ; 

260  eqpreq_ndx2  -  i4open("EQRENDX2.NDX") ; 

261  if  (eqpreq_ndx2  <  0)  return  (eqpreq_ndx2) ; 

262  eqpreq_ndx3  -  i4open {"EQRENDX3. NDX") ; 

263  if  (eqpreq_ndx3  <  0)  return  (eqpreq_ndx3) ; 

264  eqpreq_ndx4  =  i4open ("EQRENDX4 .NDX") ; 

265  if  (eqpreq_ndx4  <  0)  return  (eqpreq_ndx4) ; 

266  eqpreqL.ndx5  -  i4open  ("EQRENDX5.NDX")  ; 

267  if  (eqpreq_ndx5  <  0)  return  (eqpreq_ndx5) ; 

268  if  (rendx)  status  «  i4reindex (-1) ; 

269  return  status; 

270  ) 

271 

272  int  open_matsup (int  rendx) 

273  ( 

274  int  status  -  0; 

275  matsup_dbf  =  d4use_excl ("matsup.DBF") ; 

276  if  (matsup_dbf  <  0)  return  (matsup_dbf ) ; 

277  x4f ilter (d4deleted) ; 

278  matsup_ndxl  =  i4open ("MASUNDXl .NDX") ; 

279  if  (mat3up_ndxl  <  0)  return  (mat3up_ndxl) ;  ^ 

280  if  (rendx)  status  -  i4reindex (-1) ; 

281  return  status; 

282  } 

283 

284  int  open_matreq(int  rendx)  1^ 

285  { 

286  int  status  »  0; 

287  matreq_dbf  «  d4use_excl ("matreq.DBF") ; 

288  if  (matreq_dbf  <  0)  return  (matreq_dbf ) ; 

289  x4filter (d4deleted) ; 

290  matreq_ndxl  -  i4open ("MARENDXl .NDX") ; 

291  if  (matreq_ndxl  <  0)  return  (matreq_ndxl ) ; 
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292  niatreq_ndx2  -  i4open ("MARENDX2. NDX")  ; 

293  if  (matreq_ndx2  <  0)  return  (matreq^ndx2) ; 

294  if  (rendx)  status  -  14 reindex (-1) ; 

295  return  status; 

296  ) 

297 

298  int  open_repinfo (Int  rendx) 

299  ( 

300  int  status  -  0; 

I  301  repinfo_dbf 

302  «  d4use_excl ("repinfo.DBF") ; 

303  if  {tepinfo_dbf  <  0)  return  (repinfo  dbf); 

304  x4filter (d4deleted) ; 

305  repinfo_ndxl  -  i4open ("REPINDXl .NDX") ; 

r  306  if  (repinfo_ndxl  <  0)  return  (repinfo_ndxl) ; 

307  if  (rendx)  status  «  i4relndex (-1)  ; 

308  return  status; 

309  ) 

310 

311  int  open  facprtdnt  rendx) 

312  ( 

313  int  status  «  0; 

314  facprt_dbf  -  d4use_excl ("facprty.DBF") ; 

315  if  (facprt_dbf  <  0)  return  (facprt_dbf ) ; 

316  x4filter (d4deleted) ; 

317  eqpsup_ndxl  -  i4open ("FACPNDXl .NDX") ; 

318  if  (facprt_ndxl  <  0)  return  (facprt^ndxl) ; 

319  if  (rendx)  status  •  14reindex (-1) ;  " 

320  return  status; 

321  } 
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1  tinclude  <at dio.h> 

2  #lnclude  <conlo.h> 

3  #lnclude  <stdlib.h> 

4  tlnclude  <dir.h> 

5  tlnclude  <tlme.h> 

6  tlnclude  <3trlng.h> 

7  tlnclude  <alloc.h> 

8  tlnclude  "rmrsutll.h" 

9  tlnclude  "rmrs.h" 

10  tlnclude  ''d4base.h"  i 

11  tlnclude  "dw.h" 

12  tlnclude  "dwmenu.h" 

13  tlnclude  "dwsystem.h" 

14 

15  long  FlndEarllest (char  •  egpdasc,  long  duration,  long  repstart,  long  recno) ;  ^ 

16  Int  SchedAuto (Int  reached) ; 

17 

18  static  FILE  *  deblog; 

19  static  long  defrepstart; 

20 

21  /*  SchedAuto 

22  * 

23  * 

24  * 

25  */ 

26  Int  SchedAut o ( Int  resched) 

27  ( 

28  int  stat,  exltcode  0,  totalreprs  -  0,  coraplreprs  •  0; 

29  char  *  statptr; 

30  long  rapid; 

31  extern  HWMD  win; 

32  LLLL  *  replst  -  NULL,  •  rlptr  -  NULL; 

33  CONTEXT  repair  ctx; 

34 

35  /*  SET  MODULE  GLOBALS  */ 

36  debiog  ■=  f open  ("debug,  log",  "w"); 

37  defrepstart  •  time (NULL)  +  1800L;  /*  CURRENT  TIME  +  30  MINUTES  •/ 

38 

39  /*  WINDOW  STUFF  */ 

40  win  -  vcreat(7,  40,  EMPHNORML,  YES) ; 

41  vautoshd (win,  CURRENT,  SHADOW75,  BOTTOMHIGHT) ; 

42  vlocate(win,  9,  20); 

43  vframe(win,  EMPHNORML,  FRDOUBLE) ; 

44  if  (resched)  vmtitle(wln,  _TOP,  CENTERJUST,  EMPHNORML,  "  Full  Schedule  ") ; 

45  else  vmtitle{win,  _T0P,  CENTERJUST,  EMPHNORML,  "  Incremental  Schedule  ") ; 

46  visible (win,  YES,  YES); 

47 

48  /*  OPEN  DBF  AND  INDEX  FILES 

49  vatputs(wln,  1,  2,  "Opening  Data  Files  ..."); 

50  If  (open_eqpreq(l) ) 

51  ( 

52  u4error(-l,  “BAD  RETURN  CODE",  "OPEN_EQPREQ", (char  *)  0); 

53  vdelete(win,  NONE) ; 

54  return  (-1); 

55  ) 

56  if  (open_eqpsup (1) ) 

57  { 

58  u4error(-2,  "BAD  RETURN  CODE",  "OPEN_EQPSUP", (char  *)  0) ; 

59  vd6lete(win,  NONE); 

60  return  (-2) ; 

61  ) 

62  if  (open_repair (1) ) 

63  (  w 

64  u4error(-3,  "BAD  RETURN  CODE",  "OPEN_REPAIR", (char  *)  0)  ; 

65  vdelete(win,  NONE); 

66  return  (-3) ; 

67  ) 

68  » 

69  /•  RESET  STATUS  FOR  REPAIR-Q  &  EQPREQ-A  TO  P  s  N  RESPECTIVELY  IF  resched  •/ 

70  if  (resched) 

71  { 

72  vatputs(win,  1,  2,  "Clearing  Schedule  ..."); 

73  d43elect ( repair_dbf ) ; 

74  for  <x4top<);  !  d4eof();  x43)cip(lL)) 
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75  if  (f4char(f4ref ("STATUS") )  —  'Q')  f4r  char (f4ref ("STATUS") ,  ' P' ) ; 

76 

77  d4select (eqpreq_dbf ) ; 

78  for  (x4top();  !  d4eof();  x4sit.lp  (It) ) 

79  if  (f4char(f4ref ("STATUS"))  —'A')  f4r_char (f4ref ("STATUS") ,  ' N' ) ; 

80  ) 

81 

82  /•  BUILD  RECNO  LIST  FOR  ELIGABLE  REPAIRS  •/ 

83  d4select (repair_dbf ) ; 

i  84  i43elect (repair_ndx2) ; 

85  stat  ”  x4see)c_str  ("P")  ;  /*  find  first  POSSIBLE  repair  */ 

86  stat  “  ((stat  --111  stat  --  0)  ?  1  ,  0); 

87  if  (!  stat) 

88  { 

|P  89  u4error(-4,  "No  possible  repairs  found! ", (char  *)  0) ; 

90  d4close_ali 0 ; 

91  vdelete (win,  NONE) ; 

92  return  (-4);  /*  return  no  possible  repairs  found  */ 

93  ) 

94  replst  ”  CreateLLLLNode () ; 

95  while  (stat) 

96  ( 

97  I nLLLL (replst,  d4recno()); 

98  x4s)tip  (ID  ; 

99  statptr  -  f4str (f4ref ("STATUS") ) ; 

100  if  (statptr [0]  — ■  'P'  a  !  d4eof())  stat  =•  1; 

101  else  stat  -  0; 

102  ) 

103  fprintf (deblog,  "RECNO  List  of  repairs  to  be  scheduled\n") ; 

104  DumpLLLLNodes (replst,  deblog,  "  ") ; 

105  fprintf (deblog,  "\n") ; 

106  totalreprs  =  CountLLLLNodes (replst) ; 

107 

108  /*  SCHEDULE  EACH  ELIGABLE  REPAIR  IN  replst  */ 

109  complreprs  »  0; 

110  rlptr  “  replst; 

111  while  (rlptr) 

112  { 

113  x4go (rlptr->val) ) 

114  repid  -  f41ong(f4ref ("REPID") ) ; 

115  vatputf(win,  1,  2,  "Processing  REPID  :  %41d",  repid); 

116  vatputf(win,  2,  2,  "Repairs  Processed:  %4d",  complreprs); 

117  vatputf(win,  3,  2,  "Percent  Complete  :  %3.0f%",  ((float)  complreprs  /  (float)  totalrep 

rs)  *  100); 

118  fprintf (deblog,  "************************••*»•*»••********** »*********»«**»»\n"); 

119  fprintf (deblog,  "\nBEGIN  PROCESSING  REPID:  %41d\n",  repid); 

120  if  (CalcSchedule (repid) ) 

121  ( 

122  exitcode  «  1; 

123  break/ 

124  ! 

125  f4r_char(f4ref ("STATUS") ,  'Q'); 

126  fprintf (deblog,  "PROCESSING  COMPLETE  REPID:  %41d\n",  repid); 

127  rlptr  =  rlptr->next; 

128  complreprs++; 

129  ) 

130  fprintf (deblog,  "*********»*****. ****..**...*************»»»***»».. ; 

131  fprintf (defalog,  "SCHEDULE  PROCESSING  COMPLETEXn") ; 

132 

133  /*  DISPLAY  FINAL  STATS  */ 

134  vatputf (win,  2,  2,  "Repairs  Processed;  %3d",  complreprs); 

135  vatputs (win,  3,  2,  "Percent  Complete  :  100"); 

»'  136  vatputs  (win,  5,  2,  "press  any  !iey  ..."); 

137  getchO; 

138  /•  FREE  replst  STORAGE  */ 

139  if  (replst)  FreeLLLL (replst) ; 

140  replst  =  NULL; 

^  141  rlptr  =  NULL; 

142  /*  REMOVE  PROGRESS  WINDOW  */ 

143  vdelete (win,  NONE) ; 

144  /*  CLOSE  ALL  FILES  •/ 

145  d4close_all ( )  ; 

146  fclose (deblog)  ; 

147  return  (exitcode) ; 
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148  } 

149 

150 

151  /*  CalcSchedule 

152  * 

153  * 

154  */ 

155  int  CalcSchedule (long  repld) 

156  ( 

157  int  done,  different,  stat;  1 

158  long  recno,  eqpid,  stairt,  duration,  repstart,  maxstart; 

159  time_t  tempt; 

160  char  •  ptr,  eqpdesc[26],  tmpC261; 

161  LLLL  *  replst  -  NULL,  *  rlptr  -  NULL; 

162  CONTEXT  def;  I 

163  extern  HHND  win; 

164 

165  context_save (s  def); 

166 

167  if  (BuildList (repid,  (  replst))  u4error(0,  "BUILDLIST  ERROR", (char  •)  0); 

168  fprintf (deblog,  "  EQP  RECNO  List  for  REPID  %ld\n",  repid); 

169  DumpLLLLNodes (replst,  deblog,  "  "); 

170 

171  d4select (eqpreq_dbf ) ; 

172  14select  (eqpreq;_ndxl) ; 

173 

174  repstart  -  def repstart;  /*  CURRENT  TIME  +  30  MINUTES  */ 

175 

176  done  *>0; 

177  while  (I  done) 

178  ( 

179  rlptr  -  replst; 

180  while  (rlptr) 

181  ( 

182  x4go (rlptr->val) ; 

183  recno  -  rlptr->val; 

184  fprintf (deblog,  "  EQP  RECNO  %ld  processlng\n",  recno); 

185  st'rcpy  (eqpdesc,  f4str  (f  4ref  ("EQPDESC") ) )  ; 

186  c4trira_n (eqpdesc,  25); 

187  strupr (eqpdesc) ; 

188  duration  -  f41ong(f4ref ("DURATION") ) ; 

189  fprintf  (deblog,  "  Loo)cing  for  time  slot  for  %s  >-  Is",  eqpdesc,  ctime  (*  repstart 

)); 

190  start  «  EindEarl lest (eqpdesc,  duration,  repstart,  recno); 

191  fprintf (deblog,  "  Found  starttime  for  Is  of  ls\n",  eqpdesc,  ctime(S  start)); 

192  f4r_long(f4ref ("START") ,  start); 

193  rlptr  -  rlptr->next; 

194  ) 

195 

196  fprintf (deblog,  "  CHECKING  IF  ALL  SAMEVn") ; 

197  rlptr  -  replst; 

198  x4go (rlptr->val) ; 

199  maxstart  •  f41ong(f4ref ("START") ) ; 

200  different  -  0; 

201  rlptr  »  rlptr->next; 

202  while  (rlptr) 

203  { 

204  x4go (rlptr->val)  ; 

205  start  -  f 4iong (f4ref ("START") ) ; 

206  if  (start  !-  maxstart) 

207  { 

208  maxstart  -  (start  >  maxstart  ?  start  :  maxstart); 

209  different  »  1;  ' 

210  } 

211  rlptr  ”  rlptr->next; 

212  ) 

213  repstart  -  maxstart; 

214  if  (!  different)  * 

215  { 

216  done  =  1; 

217  fprintf (deblog,  "  POSTING  -  all  same  at  ls\n",  ctime(s  repstart)); 

218  Post (repid,  1);  /*  CHANGE  ALL  STATUS  ' T'  TO  'A'  FOR  REPID  */ 

219  } 

220  else 
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221  ( 

222  fprlntf (deblog,  "  ROLLING  BACK  -  not  same,  max“  %s\n",  ctime (S  repstart) ) ; 

223  Post (rapid,  0);  /*  CHANGE  ALL  STATUS  ' T'  BACK  TO  ' N'  FOR  REPID  */ 

224  } 

225  } 

226  if  (replst)  FreeLLLL (repist) ; 

227  replst  -  NOLL; 

228  rlptr  -  NOLL; 

229  context_restore (i  def ) ; 

i  230  return  0; 

231  } 

232 

233 

234  /*  Post 

f  235  * 

236  * 

237  */ 

238  int  Post (long  repid,  int  mode) 

239  ( 

240  long  tmprepid,  statusfld; 

241  char  tmpstatus; 

242  int  stat; 

243  CONTEXT  def; 

244  extern  HWND  win; 

245 

246  context_save  (4  def); 

247 

248  d4select (eqpreq_dbf ) ; 

249  i4select  (eqpreq_^ndxl)  ; 

250 

251  stat  -  d4seek_double (repid) ; 

252  stat  -  ((stat  0)  ?  1  :  0); 

253  if  (!  stat) 

254  { 

255  context_restore (4  def) ; 

256  return  (-2);  /*  error  */ 

257  ) 

258  statusfld  -  f4ref ("STATUS") ; 

259 

260  if  (mode  --  1) 

261  ( 

262  while  (stat) 

263  { 

264  tmpstatus  -  f4char (statusfld) ; 

265  if  (tmpstatus  "  ' T' )  f4r  char (statusfld,  'A'); 

266  d4skip(lL); 

267  tmprepid  -  f41ong(f4ref ("REPID") ) ; 

268  if  (tmprepid  =“  repid  44  !  d4eof())  stat  -  1; 

269  else  stat  -  0; 

270  ) 

271  ) 

272 

273  if  (mode  0) 

274  ( 

275  while  (stat) 

276  { 

277  tmpstatus  «  f4char (statusfld) ; 

278  if  (tmpstatus  ' T' )  f4r_char (statusfld,  'N'); 

279  d43kip(lL); 

280  tmprepid  =■  f41ong  (f4ref  ("REPID") )  ; 

281  if  (tmprepid  repid  44  !  d4eof())  stat  -  1; 

282  else  stat  *  0; 

w  283  ) 

284  } 

285  context_restore (4  def); 

286  return  (0) ; 

287  ) 

^  288 

289 

290  /*  BuildList 

291  * 

292  * 

293  */ 

294  int  BuildList (long  repid,  LLLL  **ptr) 
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295  { 

296  long  oqprecno,  tmprepid; 

297  int  stat; 

298  CONTEXT  def; 

299 

300  context_save (&  def); 

301 

302  *  ptr  -  CreateLLLLNode 0 ; 

303  d4select (eqpreq_dbf ) ; 

304  i4select (eqpreq^ndxl) ; 

305  stat  »  x4seek_double (repid) ; 

306  stat  “  ((stat  "—111  stat  —  0)  ?  1  :  0); 

307  if  (!  stat) 

308  { 

r  i9  context_restore (&  def); 

310  return  (-2);  /•  error:  no  equip  found  for  repid  in  eqpreq  •/ 

311  ) 

312  while  (stat) 

313  { 

314  eqprecno  -  d4recno(); 

315  /*  ADD  TO  LIST  */ 

316  InLLLL(*  ptr,  eqprecno); 

317  x4sltip(lL); 

318  tmprepid  -  f41ong (f4ref ("REPID") ) ; 

319  if  (tmprepid  —  repid)  stat  -  1; 

320  else  stat  -  0; 

321  ) 

322  context_re3tore (t  def); 

323  return  (0) ; 

324  } 

325 

326  /*  FindEarliest 

327  * 

328  * 

329  */ 

330  long  FindEarliest (char  »  eqpdesc,  long  duration,  long  repstart,  long  recno) 

331  { 

332  int  result,  done,  pieceseqp,  found; 

333  char  status,  *  tmpstr; 

334  CONTEXT  def; 

335  long  tmp,  tmpstart,  tmpduration,  tmpend,  tmpeqpid,  eqpid; 

336  long  statusfld,  startfld,  durationfld,  eqpdescfld,  eqpldfld; 

337  LLLL  *  Idlst  -  NULL,  *  straddle  -  NULL,  *  lookback  -  NULL,  •  ptr  -  NULL; 

338  extern  HWND  win; 

339 

340  context_save (s  def); 

341 

342  strupr (eqpdesc) ; 

343  c4trim_n (eqpdesc,  25); 

344 

345  /****  get  ID'S  FOR  EACH  EQPDESC  IN  EQPSUP  FILE  ****/ 

346  d4select (eqpsup_dbf ) ; 

347  14select (eqpsup  ndxl) ;  /*  eqpdesc  »/ 

348  eqpdescfld-  f4 ref ("EQPDESC") ; 

349  eqpidfld  -  f4ref ("EQPID") ; 

350  result  -  d4seek_str (strupr (eqpdesc) ) ; 

351  if  (result  !-  0  ss  result  !-  1)  return  (1); 

352  idlst  -  CreateLLLLNode 0 ; 

353  InLLLL (idlst,  f41ong (eqpldfld) ) ; 

354  x4skip(lL); 

355  tmpstr  -  strupr (f4str (eqpdescfld) ) ; 

356  c4trim_n (tmpstr,  255); 

357  while  (strcmp (tmpstr,  eqpdesc)  —  0  St  !  d4eof()) 

358  { 

359  InLLLL (idlst,  f41ong (eqpidfld) ) ; 

360  x4skip(lL); 

361  tmpstr  »  strupr  (f43tr (eqpdescfld) ) ; 

362  c4trlm_n (tmpstr,  255); 

363  ) 

364  pieceseqp  *■  CountLLLLNodes (idlst) ; 

365  fprlntf (deblog,  "  Found  %d  Instances  of  %s  in  eqpsup  file\n",  pieceseqp,  eqpdesc) 

366  fprlntf (deblog,  "  EQP  ID  List\n") ; 

367  DumpLLLLNodes (idlst,  deblog,  "  ")  ; 

368  /****,»*****»***.***»*******************.********»*******.*.**...****.*..»/ 
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/****  LOOK  FOR  ANY  EQPDESC  ID  NOT  USED  AFTER  REPSTART  *•**/ 
d4select (eqpreq_dbf ) ; 

i4aelect (eqpreq_ndx2) ;  /*  eqpdeac+start  */ 

statusfld  -  f4ref {"STATU8") ; 

startfld  -  f4ref ("START") ; 

durationfld  -  f4 ref ("DURATION") ; 

eqpdescfld  -  f4ref ("EQPDESC") ; 

eqpidfld  -  f4ref ("EQPID") ; 

result  “  d4seelc_str  (strupr  (eqpdesc) )  ; 

if  (result  !“  0  S&  result  !-  1)  return  (-1L) ; 

tmpstr  “  strupr (f4str (eqpdescfld) ) ; 

c4trim_n (tmpstr,  255); 

if  (strcmp (tmpstr,  eqpdesc)  !-  0)  return  (-2L) ; 
ptr  -  idlst; 
do 
( 

found  -  0; 

result  “  d4seek_str (strupr (eqpdesc) ) ; 
tmpstr  =  strupr (f4str(eqpdescfld) ) ; 
c4trim_n (tmpstr,  255) ; 

while  (strcmp (tmpstr,  ecpdesc)  --04*  !  d4eof () ) 

( 

tmpeqpld  -  f41ong (eqpidfld) ; 
status  >  f4char (statusfld) ; 
tmpstart  -  f41ong(startfld) ; 
tmpduration  •  f41ong (durationfld) ; 
if  ( (ptr->val  —  tmpeqpid)  (4 

(status  'A'  II  status  =»»  'L'  ||  status  =-  'T')  44 
(tmpstart  +  tmpduration  >  repstart) 

) 

( 

found  -  1; 
break; 

) 

d4skip(lL) ; 

tmpstr  -  strupr (f4str (eqpdescfld) ) ; 
c4trim  n (tmpstr,  255); 

) 

if  (!  found) 

{ 

fprintf (deblog,  "  EQPID  %ld  COMPLETELY  FREE  AFTER  REPSTARTXn",  ptr->val) ; 

d4go  (recno)  ; 

f4r_char(f4ref ("STATUS") ,  'T'); 
f 4r_long (f4ref ("START") ,  repstart) ; 
f4r_iong(f4ref ("EQPID") ,  ptr->val)/ 

FreeLLLL(ldlst) ; 
context_restore (4  def); 
return  (repstart); 

} 

ptr  -  ptr->next; 

) 

while  (ptr); 

/********************»*»********************»*****»*****************»***«*/ 

/****  add  any  allocated  ID'S  THAT  STRADDLE  REPSTART  TO  lookback  ****/ 
ptr  -  idlst; 

lookback  «  CreateLLLLNode () ; 
d4select (eqpreq_dbf ) ; 

i4select (eqpreq_ndx2) ;  /*  eqpdesc+...  »/ 

result  -  d4seek_str (strupr (eqpdesc) ) ; 

if  (result  !«  0  44  result  !-  1)  return  (-1L); 

tmpstr  “  strupr (f4str (eqpdescfld) ) ; 

c4trim_n (tmpstr,  255) ; 

if  (strcmp  (tmpstr,  eqpdesc)  !•  0)  return  (•-2L) ; 
do 
{ 

result  ”  d43eek_3tr (strupr (eqpdesc) ) ; 
tmpstr  =  strupr (f4str (eqpdescfld) ) ; 
c4trlm_n (tmpstr,  255); 

while  (strcmp (tmpstr,  eqpdesc)  0  44  !  d4eof () ) 

( 

tmpeqpid  •  f41ong (eqpidfld) ; 
status  “  f4char (statusfld) ; 
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tmpstart  -  f41ong<startfld) ; 
tmpduration  -  f41ong(durationfld) ; 
if  <<ptr->val  —  tmpeqpid)  ££ 

(status  —  'A'  It  status  —  ' L'  II  status  —  'T')  && 

(tmpstart  +  tmpduration  >  repstart)  £& 

(tmpstart  <-  repstart) 

) 

{ 

InLLLL( lookback,  ptr->val); 
break; 

) 

d4 skip  (ID  ; 

tmpstr  -  atrupr(f4atr (eqpdescfld) ) ; 
o4trim  n (tmpstr,  255); 

) 

ptr  «  ptr->next; 

) 

while  (ptr)  ; 

fprintf (deblog, "Lookback  ListXn") ; 

□umpLLLLNodes (lookback) ; 

/*«***ik**************************************7»************************«***/ 

/****  SEARCH  BACKWARD  FROM  FIRST  ID_START>REPSTART  TO  REPSTART  •*/ 

/••**  DO  NOT  SEARCH  BACKWARDS  IF  ID  IS  IN  lookback  *•**/ 

d4select (eqpreq_dbf ) ; 

14select  (eqpreq_ndx2) ;  /*  eqpdesc-fstart  -  important 

result  >  d4seek_str (strupr (eqpdesc) ) ; 

if  (result  !-  0  &£  result  I-  1)  return  I-IL) ; 

tmpstr  "  strupr (f4str (eqpdescfld) ) ; 

c4trim_n (tmpstr,  255) ; 

if  (strcmp (tmpstr,  eqpdesc)  1-  0)  return  (-2D ; 

while  (strcmp (tmpstr,  eqpdesc)  --  0  tS  !  d4eof())/*  FOR  ALL  EQPID' s 
{ 

tmpeqpid  »  £41on9 (eqpidfld) ; 
status  -  f4char (statusfld) ; 
tmpstart  «  f41ong(startfld) ; 
tmpduration  •  f 41ong (durationfld) ; 

if  ( (status  =«  'A'  11  status  -«  'L'  II  status  —  'T')  && 

(tmpstart  >-  repstart) 

) 

{ 

if  (!  InLLLL (loo)cback,  tmpeqpid)  £(  (tmpstart  -  repstart)  >-  duration) 
( 

/**  BINGO  ***/ 

fprintf (deblog,  "  EQPID  %ld  FREE  AT  REPSTART\n",  tmpeqpid); 

d4go (recno) ; 

f4r_char(f4ref ("STATUS") ,  'T'); 
f4r_long(f4ref ("START") ,  repstart) ; 
f4r_iong(f4ref ("EQPID") ,  tmpeqpid) ; 

FreeLLLL (idlst) ; 

FreeLLLL (lookback) ; 
context_restore (S  def ) ; 
return  (repstart) ; 

) 

} 

d4skip  (ID  ; 

tmpstr  -  strupr (f4str (eqpdescfld) ) ; 
c4trlm_n (tmpstr,  255) ; 

) 

/*»*****************************************»****•*»*****************»*»**/ 

/***»  SEARCH  FOWARD  FROM  EACH  ID  FOR  END  >  REPSTART  **/ 
ptr  “  idlst; 
d4select (eqpreq_dbf ) ; 

14select (eqpr6q_ndx3) ;  /*  eqpdesct (start +duration) 

result  ”  d43eek_str (strupr (eqpdesc) ) ; 

if  (result  !«  0  &&  result  !-  1)  return  (-1L) ; 

tmpstr  =  strupr (f4str (eqpdescfld) I ; 

c4trim_n (tmpstr,  255); 

if  (strcmp (tmpstr,  eqpdesc)  !-  0)  return  (-2D ; 
while  (strcmp (tmpstr,  eqpdesc)  —  0  SS  !  d4eof()) 

{ 

tmpeqpid  -  f41ong (eqpidfld) ; 
status  -  f4char (statusfld); 


*/ 


*/ 


*/ 


1 


V 


r 


150 


SCHAOTO.C 


Tuesday,  January  14,  1992 


Page  8 


4 


f 


I 


515 

516 

517 

518 

519 

520 

521 

522 

523 

524 

525 

526 

527 

528 

529 

530 

531 

532 

533 

534 

535 

536 

537 

538 

539 

540 

541 

542 

543 

544 

545 

546 

547 

548 

549 

550 

551 

552 

553 

554 

555 

556 

557 

558 

559 

560 

561 

562 

563 

564 

565 

566 

567 

568 

569 

570 

571 

572 

573 

574 

575 

576 

577 

578 

579 

580 

581 

582 

583 

584 

585 

586 

587 

588 


tmpstart  -  f41ong<startfld) ; 
tmpduration  «  f 41ong (durationfld) ; 

if  (  {status  "  'A'  11  status  —  ' L'  ||  status  —  ' T' )  && 

( (tmpstart  +  tmpduration)  >-  repstart) 

) 

( 

if  (SlotFoward (d4recno () ,  duration)) 

( 

/*•  BINGO  ***/ 

tmp  -  tmpstart  +  tmpduration; 

fprintf (deblog,  "  EQPID  %ld  AVAIL  AT  %s\n",  tmpeqpid,  ctime(t 

d4go (recno) ; 

f4r_char (f 4ref ("STATUS") ,  ' T' ) ; 

f4r  long (f4ref ("START") ,  tmpstart  +  tmpduration); 
f4r"long(f4ref ("EQPID") ,  tmpeqpid) ; 

FreeLLLL (idlst) ; 

FreeLLLL  (loo)cbac)c)  ; 
context_re3tore (&  def ) ; 
return  (tmpstart  +  tmpduration) ; 

) 

> 

d4s)clp  (ID  ; 

tmpstr  “  strupr (f4str (eqpdescfld) ) ; 
c4trim_n (tmpstr,  255); 

} 

/**********************************************«******«**** A**************/ 

context_restore (&  def) ; 

fprintf (deblog,  "ERROR  REACHED  END  OF  FindEarliest  ROUTINEXn"); 
return  (-1L) ;  /*  SHOULD  NEVER  REACH  THIS  EXIT  POINT 


Int  SlotFoward (long  reo,  long  duration) 

( 

long  statusfld,  startfld,  durationfld,  eqpidfld,  eqpdescfld; 
long  curid,  curend,  tststart,  tmpeqpid; 
char  *  tmpstr,  eqpdesc[25S) ,  status; 
int  Iseof; 

CONTEXT  def; 

context_save (i  def) ; 

d4select (eqpreq_dbf ) ; 

i4select (eqpreq_ndx2) ;  /*  eqpdesc+start 

statusfld  -  f4ref ("STATUS") ; 

startfld  -  f4ref ("START"); 

durationfld  -  f4ref ("DURATION") ; 

eqpdescfld  -  f 4ref ("EQPDESC") ; 

eqpidfld  -  f4ref ("EQPID") ; 

d4go{rec) ; 

curend*  f41ong (startfld)  +  f41ong (durationfld) ; 
curid  =»  f41ong  (eqpidfld) ; 
status  =  f4char (statusfld) ; 
strcpy (eqpdesc,  f4str (eqpdescfld) ) ; 
strupr (eqpdesc) ; 
c4trim_n (eqpdesc,  255); 
do 
{ 

d43kip  (ID  ; 

iseof  *  d4eof(); 

tmpeqpid  *  f41ong (eqpidfld) ; 

tmpstr  *  f 4 St r (eqpdescfld) ; 

strupr (tmpstr) ; 

c4trim_n (tmpstr,  255); 

status  *  f4char (statusfld) ; 

> 

while  (((curid  !«  tmpeqpid)  II 

(status  !“  'A'  &&  status  !*  'L'  &&  status  1=  'T'))  SS 
!  iseof  t& 

St rcmp (eqpdesc,  tmpstr)  **  0 

)  ; 


tmp) )  ; 


*/ 


•/ 
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589  if  { <strcmp <eqpdesc,  tmpstr)  1«  0)  II  d4eof()) 

590  ( 

591  context_restore (5  def I ; 

592  return  (1) ; 

593  } 

594 

595 

596  if  ( <f41ong (startfld)  -  curend)  >-  duration) 

597  { 

598  context_re3tore (4  def) ; 

599  return  (1); 

600  } 

601  context_restore <4  def); 

602  return  (0) ; 

603  > 
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4 


'V 


If 


1  #lnclude 

2  #include 

3  #lnclude 

4  #include 

5  tlnclude 

6  #lnclude 
1  tlnclude 

8  tlnclude 

9  tlnclude 

10  tlnclude 

11  tlnclude 

12  tlnclude 


<stdlo.h> 

<math.h> 

<conlo.h> 

<stdllb.h> 

<dl r , h> 

<tline  .h> 

<strlng.h> 

<alloc.h> 

"dtbase.h" 

"dw.h" 

"dwmenu.h" 

"dwsystem.h 


13 

14  FILE  *  sched, 

15 


tl 


16  typedef  struct 
16  ( 

16  Int  dbf; 

17  Int  ndx; 

18  long  rec; 

19  } 

19  CONTEXT; 

20 

21  Int  eqpreq__dbf,  eqpreq_ndx; 

22 

23  Int  main (int  argc,  char  *  argv[]) 

24  { 

25  d4init(); 

26  sched  “  f open ("sched",  "w") ; 

27  PrtSchO; 

28  d4init_undo(); 

29  exit(O); 

30  ) 

31 

32  /*  PrtSch 

33  * 

34  * 

35  */ 

36  int  PrtSch (void) 

37  I 

38  int  done,  1,  thlsone,  r  -  0,  c  “  1/ 

39  char  status,  llnebuff [300] ,  curdesc[26],  •  tmpdesc,  *  tlmeptr; 

40  long  start,  duration,  currepld,  mlnstart,  delta  •  900L,  curtime; 

41  long  cureqpld,  eqpldfld,  eqjxiescfld,  eqpld; 

42  long  statusfld,  startfld,  durationfld,  repldfld,  repld; 

43  HWND  win; 

44  unsigned  int  key  »  0; 

45 

46 

47  /*  WINDOW  STUFF  */ 

48  win  =  vcreat(50,  80,  ERR,  YES); 

49  vwind(win,  23,  78,  1,  1)  ; 

50  vlocate(win,  1,  1); 

51  vframe  (win,  ERR,  FRDOUBLE) ; 

52  vshadow(wln,  CURRENT,  SHADOW75,  BOTTOMRIGHT) ; 

53  vmtitle(win,  TOP,  CENTERJUST,  ERR,  "  Auto-mode  Repair  Schedule  ") ; 

54 

55  eqpreq_dbf  *  d4use_excl ("EQPREQ.DBF") ; 

56  eqpreq^ndx  -  i4index ("tmp",  "START",  0,  0) ; 

57 

58  statusfld  -  f4ref ("STATUS") ; 

59  startfld  »  f4ref ("START") ; 

60  durationfld  -  f4ref ("DURATION") ; 

61  repldfld  =  f4ref ("REPID") ; 

62  eqpidfld  -  f 4ref ("EQPID") ; 

63  eqpdescfld  »  f4ref ("EQPDESC") ; 

64 

65  /****  get  EARLIST  START  ***♦/ 

66  minstart  =  2147000000; 

67  d4top  0 ; 

68  while  (!  d4eof()) 

69  ( 

70  status  «  f4char  (statusfld) ; 

71  start  -  f41ong (startfld); 
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72 

if  {(status  --  'A'  II  status  —  'I,'  II  status  •»  'C' 

)  start  <  minstart) 

73 

minstart  -  start; 

74 

d4skip(lL); 

75 

) 

76 

77 

/*  BOILD  SCHEOaLE  */ 

78 

curtime  -  time (NULL); 

79 

timeptr  -  cti»e(4  curtime); 

80 

timeptr Cstrlen (timeptr)  -  1]  -  '\0'; 

81 

vatputf(win,  r++,  c,  "Schedule  as  of  :%s”,  timeptr); 

82 

vatputf(win,  r++,  c,  "Each  character  represents  %ld  minutes",  delta  /  60); 

83 

vatputf(win,  r++,  c,  "Repair  Schedule"); 

84 

vatputf (win,  r++,  c,  "6203 1",  "  "); 

85 

d4top  0 ; 

86 

while  (i  d4eof()) 

87 

88 

for  (i  -  0;  i  <  299;  i++)  linebuffti)  -  32; 

89 

linebuff [299]  -  '\0'; 

90 

status  -  f4char (statusfld) ; 

91 

while  (!  (status  --  'A'  li  status  —  'L')) 

92 

{ 

93 

d4s]cip(lL)  ; 

94 

status  >  f4char (statusfld) ; 

95 

} 

96 

currepid  -  f41ong(repldfld) ; 

97 

start  -  f41ong (startfld) ; 

98 

duration  -  f41ong(durationfld); 

99 

Add2Sch (linebuff,  minstart,  start,  duration,  delta. 

status,  currepid) ; 

100 

TrimSch( linebuff) ; 

101 

vatputf (win,  r++,  c,  "REPID  %-41d%10s:%s",  currepid. 

"  ",  linebuff); 

102 

while  (currepid  —  f41ong (repidfld) ) 

103 

[ 

104 

d4s)clp  (IL)  ; 

105 

) 

106 

) 

107 

108 

109 

eqpreq_ndb<  »  i4index  ("tmp",  "upper  (eqpdesc) +str  (oqpid,  10 

o 

a 

o 

o 

110 

111 

vatputf (win,  r++,  c,  "Equipment  Allocation  Schedule"); 

112 

vatputf  (win,  r++,  c,  "%20sl",  "  ")/ 

113 

d4top()  ; 

114 

while  (!  d4eof()) 

115 

{ 

116 

for  (i  -  0;  i  <  299;  i++)  linebuff [i]  =  32; 

117 

linebuff [299]  -  '\0'; 

118 

cureqpid  -  f41ong(eqpldfld) ; 

119 

strcpy (curdesc,  f43tr (eqpdescfld) ) ; 

120 

strupr (curdesc) ; 

121 

c4trim_n (curdesc,  25) ; 

122 

eqpid  -  f41ong (eqpldfld) ; 

123 

thisone  «  0; 

124 

while  (cureqpid  “<■  eqpid  &(  I  d4eof()) 

125 

{ 

126 

status  -  f4char  (statusfld)  ,' 

127 

if  ((status  —  'A'  II  status  ' L'  l|  status  -- 

'C')  ) 

128 

{ 

129 

thisone  -  1; 

130 

start  “  f41ong (startfld) ; 

131 

duration  -  f41ong (durationfld) ; 

132 

tmpdesc  f4str  (eqpdescfld)  ; 

133 

strupr (tmpdesc) / 

134 

c4trim  n (tmpdesc,  255); 

135 

repid  -  f41ong{f4ref ("REPID") ) ; 

136 

Add2Sch (linebuff ,  minstart,  start,  duration. 

delta,  status,  repid) 

137 

) 

138 

d4skip(lL) ; 

139 

eqpid  -  f 41ong (eqpidfld) ; 

140 

) 

141 

TrlmSch (linebuff) ; 

142 

if  (thisone) 

143 

vatputf (win,  r++,  c,  "%-12s  ID  %-41d:%s",  curdesc,  cureqpid,  linebuff) 

144 

} 

145 

visible (win,  YES,  YES); 
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1 


146 

147 
146 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174  } 

175 

176  int 

177  { 

178 

179 

180 
181 
162  ) 

183 

184  Int 

185  { 
136 

187 

188 

189 

190 

191  ) 

192 

193  int 

194  { 

195 

196 

197 

198 

199 

200 
201 
202 

203 

204 

205  ) 

206 

207  int 

208 

209  ( 

210 
211 
212 

213 

214 

215 

216 

217 

218 
219 


while  (key  !-  ESC) 

{ 

switch  (key  “  getkeyO) 

{ 

case  CURUP  : 

vinovedlr (win,  -1,  0); 
break; 

case  CURDN  : 

vmovedir (win,  1,  0); 
break; 

case  CURLF  : 

vmovedir (win,  0,  -1); 
break; 

case  CURRT  : 

vmovedir (win,  0,  1); 
break; 

case  PGUP  : 

vmovedir (win,  -20,  0) ; 
break; 

case  PGDN  : 

vmovedir (win,  20,  0); 
break; 

default  : 
break; 

) 

) 

clrscr  () ; 
vexit  (0)  ; 


context_save (CONTEXT  *  def ) 

def->rec  -  d4recno(); 
def->ndx  =  i4select (-1) ; 
def->dbf  -  d4select (-1) ; 
return  (1); 


context_restore (CONTEXT  *  def) 

d4select  (def->dbf ) ; 
i4aelect (def->ndx) ; 
if  (d4eof())  d4sklp(-lL); 
d4go (def->rec) ; 
return  (1); 


TrimSch(char  *  linebuff) 
int  i; 

for  (i  -  298;  i  >  -1;  1—) 

{ 

if  (linebuff [1]  !-  32  II  i  —  0) 

{ 

if  (i)  lirifebjrf[l  +  11  -  '\0'; 
else  linebuff [0]  «  '\0'; 
break; 

) 

} 


Add2Sch(char  *  linebuff,  long  minstart,  long  start,  long  duration, 
long  delta,  char  marker,  long  repid) 

double  dbeg,  dend; 

int  beg,  end,  i,  buffstart,  buffend; 

dbeg  -  ((double)  (start  -  minstart))  /  ((double)  delta); 
dend  -  dbeg  +  ((double)  duration  /  ((double)  delta)); 
dbeg  -  (( (ceil (dbeg)  -  dbeg)  <  .5)  ?  ceil (dbeg)  ;  floor (dbeg) ) ; 
dend  ”  (( (ceil (dend)  -  dend)  <  .5)  ?  ceil (dend)  :  floor (dend) ) ; 

beg  -  (int)  dbeg; 
and  ”  (int)  dend  -  1; 
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220 

221 

buffstart  -  0; 

222 

buffend  “  298; 

223 

224 

if  (beg  <011  beg 

>  298)  return  (-1); 

225 

if  (end  >  298)  end 

-  298; 

226 

for  (i  -  beg;  i  <- 

end;  i++) 

linebuff[i)  -  (char) 

(repid  +  64); 

227 

return  (1); 

228  } 

229 

230 

231 

232 

